AltaVistff^i^Wtssults • ' " 

gjIgVISta: SEARCH 



Web Results 




WEB PAGES ^ 10,418,340 pages found. ^ Family Filter is off 

Search: MiRROR P... 

.Search Guide: Use the Web as a homework tool! Books Music Movies 

Toys Electronics 

"t Sandia National Laboratories - HTML Reference Manual (removed^ 

HTML Reference Manual (removed) Neither the main page nor any of the companion 

3i sub-pages of Sandia National Laboratories' HTML Reference Manual had... 

^'LJ URL: www.sandia.gov/scl_compute/html_ref.html 

Last modified on: 1 1-Jan-1999 - 5K bytes - in English 

If: [ Translate 1 \ More pages from this site U 0 Related pages 1 

2j PHP: PHP Manual Quick Reference 

PHP Manual Quick Reference. Here is a list of all the PHP 3.0 functions. Click on any one of 
M them to jump to that page in the manual, abs acos... 
URL: www.php.net/qulckref.php3 
Last modified on: 21-Oct-1 999 - 76K bytes - in English 

[ Translate ] [ More pages from this site ] f % Related pages ] [ Facts about: Circle Net Inc ] 
C No Title 

V MIRR0R(1 L) MISC. REFERENCE MANUAL PAGES MIRR0R(1 L) NAME mirror - mirror packages on remote sites 
SYNOPSIS mirror -[dvTn] [-Ufilename.,. 
URL: nlc.funet.fi/FUNET/hamster/mirror.txt 
Last modified on: 2-Dec-1993 - 19K bytes - in English 
f Translate 1 f Related pages 1 

4. No Title 

MIRR0R(1L) MISC. REFERENCE MANUAL PAGES MIRROR(IL) NAME mirror - mirror packages on remote sites 

SYNOPSIS mirror -[dvTn] [-Ufilename... 

URL: ftp.funet.fi/funet/hamster/mirror.txt 

Last modified on: 2-Dec-1993 - 19K bytes - In English 

f Translate 1 \ Related pages 1 

5. The Registrar Reference Manual 

Browse. Directories. OUR Newswire. Administrative Forms. Course Summary. ISIS Screens & Procedures. OUR 
Departments. Registrar Documentation.... 
URL: wvw.our.psu.edu/ 

Last modified on: 25-Jan-2000 - 7K bytes - in English 

[ Translate ] [ More pages from this site ] \ l!i Related pages 1 [ Facts about: Pennsylvania Stat.. ] 

6. Space Shuttle News Reference Manual 



http://www.alta vista.com^gi-bin/quen^.pages&kl=XX&pg=q&search 



Free Internet Access; y 
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Click a tab for more results on ftpget+article 3893 of comp.. 



Discussion Groliii^!^ 



What is a tab? 



WEB PAGES > 35.504 pages found. 



^ Family Filter Is off 




Search: FTPGET+A 

1. f^o Title Books Music Movies 
'™ Articie 3893 of comp.lang.peri: Xref: feenix,nnetronetconn comp.lang.perl:3893 Path:,.. Iq^ Electronics 

=:0 URL: www.metronet.com/periinfo/scripts/ftpstuff/ftpget 

: 2 Last modified on: 1-Jul-1 993 - 22K bytes - in Englisli 

fg [ Translate ] [ More pages from this site ] f 0 Related pages 1 

2. ffi>Title 

H Article 3893 of comp.lang.peri: Xref: feenix.metronetcom comp.lang.perl:3893 Path:... 
m URL: ftp.loxinfo.co.th/pub/unix/programming/peri/ftp/ftpget 

Last modified on: 1-Jul-1993 - 22K bytes - in English 

[ Translate ] [ H Related pages ] 

3. Title 

Article 3893 of comp.lang.peri: Xref: feenix.metronet.com comp.Iang.perj:3893 Path:... 
U URL: kawnug.oznet.ksu.edu/perl/SCRIPTS/ftpstuff/ftpget 
U Last modified on: 27-Mar-1 996 - 22K bytes - in English 

~ 3 [ Translate ] [ More pages from this site Ifft Related pages ] [ Facts about: Kansas State 
Univ... 1 

4. Comprehensive Perl Archive Network 

CPAN: Comprehensive Perl Archive Network. Welcome to CPAN! Here you will find All Things Perl. CPAN is the 
Comprehensive Perl Archive Network.... 
URL: www, cpan.org/ 

Last modified on: 1-Nov-1999 - 3K bytes - in English 

f Translate 1 f More pages from this site 1 f 0 Related pages ] 

5. comp.lanq.perl.tk FAQ 

From: pvhp@lns62.lns.corneli.edu (Peter Prymmer) Newsgroups: comp.lang.perl.tk.comp.lang.pe 

l.announce.comp.answers.news.a swers Subject:... 

URL: w4.lns.cornell.edu/-pvhp/ptk/ptkFAQ.html 

Last modified on: 27-Jul-1 997 - 251 K bytes - in English 

r Translate 1 f More pages from this site 1 f @] Related pages 1 

6. comp.lang.perLtk FAQ 

From: pvhp@lns62.lns.cornell.edu (Peter Prymmer) Newsgroups: comp.lang.perl.tk,comp,lang.pe 

I. announce, com p. answers, news, a swers Subject... 

URL: www.lns.cornell.edu/-pvhp/ptk/ptkTOC.html 

Last modified on: 27-Jul-1997 - 12K bytes - in English 

[ Translate 1 \ More pages from this site 1 [@ Related pages 1 
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alta 



yista: SEARCH 




Local : Free internet Access Email 




WEB PAGES ^ 105 pages found. ^Family Filter is off 

11. No Title 

Q Revision 1.30 1993/06/18 16:55:51 Imjm # Drop the uses of $con. ## Revision 1.29 
C 1993/06/04 15:20:34 imjm # Patch by Joergen Haegg. to spot when no... 
,.f= URL: irsxac.psu.edu/IRS/cgi/changeIogs-rev1/ftp 
7k Last modified on: 28-Jun-1993 - 5K bytes - in English 
; [ Translate ][ More pages from this site ][ Com pan v factsheet ] 

M2. Where can I get more information on Perl? 

Where can I get more information on Perl? We'll cover five areas here: USENET (where 
you're probably reading this), publications, the reference... 
URL: www. cis.ufl.edu/peri/faq/html/1. 7.html 
Last modified on: 11-Feb-1994 - 6K bytes - in English 
h~ [ Translate ][ More pages from this site ][ Companv factsheet ] 

H3. No Title 

r^' text -*- Last modified Tue Mar 30 18:10:57 1993 This is an incomplete and probably 
'^"^^ out-of-date list of all the packages distributed on... 
"5 URL: ion.apana.org.au/pub/gnu/DESCRIPTIONS 

Last modified on: 3-Jan-1 994 - 36K bytes - in English 

f Translate 1 

14. Index of /Icons/Alcons/READMEs 

Index of /Icons/Alcons/READMEs. <PI-AINTEXT> Anthony's X Icon Library (version 1.5) 

Main ReadMe File... 

URL: shiva.di.uminho.pt/lcons/Alcons/READMEs 
Last modified on: 18-Feb-1994 - 7K bytes - in English 
[ Translate 1 

NoTjtle) 

usr/bin/perl # Mirror Master. # Run several mirrors in parallel. # # By Lee McLoughiin. # You can do what you like v^th 

this except claim that you.^^' \ 

URL: strucbio.biologie.uni-konstanz.de/pdb/mirror/mm 

Last modified on: 18-Jan-1994 - 10K bytes - in English 

[ Translate ][ More pages from this site ] 

16. No Title 

This is the file README for the gzip distribution, version 1.2.4. gzip (GNU zip) is a compression utility designed to be a 
replacement for... 

URL: www. centraico astdata. o rg/Water Data/h elpers/gzip/read m e. txt 




Search: MIRROR A... 
Books Music Movies 
Toys Electronics 



1/31/00 12 23 PIV 




„WEB PAGES 1 7 pages found. 



> Family Fitter is off 



fLNoTitte 

^=LJ Article 5397 of comp.lang.peii: Xref: feenlx.metronet.com comp.infosystems.www:1336 
ffi comp.lang.perl:5397 Newsgroups:... 

:p URL:ftp.telecom.sk/pub/mirror/CPAN/scrjpts/i...WWW/http.get.pl 

Last modified on: 25-Aug-1 993 - 2K bytes - in English 
TZ [ Translate ] 

III 

42. No Title 

Hypertext Transfer Protocol (HTTP) Tim Berners-Lee, CERN Internet Draft Expires 5 May 
1994 5 Nov 1993 Hypertext Transfer Protocol (HTTP) A Stateless... 

^ URL: freenet.msp.mn,us/help.sav/htmldocs/http-spec.txt 

(f Last modified on: 20-Nov-1 993 - 65K bytes - in English 

□ f Translate 1 \ % Related pages 1 

n 3. No Title 

n Hypertext Transfer Protocol (HTTP) Tim Berners-Lee, CERN Internet Draft Expires 5 May 

1994 5 Nov 1993 Hypertext Transfer Protocol (HTTP) A Stateless... 
URL: ncstrl.informatik.uni-stuttgart.de/fis/http-spec.txt 
Last modified on: 31-Mar-1994 - 65K bytes - in English 
r Translate 1 [ % Related pages 1 



amazonxxxn. 



Search: HTTP.GET 
Books Music Movies 
Toys Electronics 



4. Lvnx Users Guide v2.2 

Lynx Users Guide Version 2.2. Lynx is a fully-featured World Wide Web (WWW) client for users running 
cursor-addressable, character-cell display... 
URL: www.cs.tufts.edu/lynx/Lynx_users_guide.html 
Last modified on: 16-Mar-1994 - 31 K bytes - in English 
f Translate 1 f % Related pages 1 \ Company factsheet ] 

5. No Title 

local/bin/perlbin/perl # # urlget — get a document given a WWW URL # # Jack Lund 9/3/93 
zippy@ccwf.cc.utexas.edu # # from hget by: # Oscar... 
URL: www.chemie.uni-dortmund.de/Hoki/exp/urlget 
Last modified on: 23-Mar-1994 - 4K bytes - in English 
f Translate 1 \ % Related pages 1 

6. No Title 

Hypertext Transfer Protocol (HTTP) Tim Berners-Lee. CERN Internet Draft Expires 5 May 1994 5 Nov 1993 Hypertext 
Transfer Protocol (HTTP) A Stateless... \ 




I of 2 
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WEB PAGES ^ 81 pages found. ^ Family Filter is off 

m S^rch: MIRROR A.. 

,1^ 1. No Title Books Music Movies 

Computer underground Digest Sun Oct 25, 1992 Volume 4 : Issue 53 Editors: Jim Thomas Toys Electronics 

£C and Gordon Meyer (TK0JUT2@NIU.BITNET) Archivist; Brendan Kehoe... 

fU URL: venus.socl.niu.edu/--cudigest/CUDS4/cud453.txt 

Last modified on: 7-Nov-1992 - 46K bytes - in English 
r Translate 1 f tt Related pages 1 



7 



2. No Title 

=: Article 5397 of comp.lang.perl: Xref: feenix.metronetcom comp.infosystems.www:1336 

comp.lang.perl:5397 Newsgroups:,.. 
U : URL: ftp.telecom.sk/pub/mirror/CPAN/scripts/i...WWW/http.get.pl 

Last modified on: 25-Aug-1 993 - 2K bytes - in English sssss^t, 
^ [ Translate ] 

3. Perl-FAQ-1 

r". Table of Contents. 1.1) What is Perl? 1 .2) Is Perl hard to learn? 1.3) Should I program 

everything in Perl? 1 ,4) Where can I get Perl over the... 
URL: ftp.sra.co.jp/public/doc/perl-faq/Perl-FAQ-1 .html 
Last modified on: 27-Jan-1994 - 37K bytes - in English 
f Translate 1 F % Related pages 1 

4. No Title 

usr/bin/perl # Obey the remove commands generated but not done by mirror # NEED TO unlink 
/public/micros/ibmpc/simtel20/ prdsht/tc81 0.arc # NEED TO... 
URL: www. mit.edu/afs/sipb. mit. edu/userAwarlor. . . rror/do_uniin ks 
Last modified on: 9-Aug-1993 - 316 bytes - in English 
f Translate 1 F % Related pages 1 f Company factsheet 1 

5. No Title 

Archive-name: finding-sources Version: $ld: cswjaq.v 1 .109 1 993/03/03 14:32:1 1 jik Exp $ I. Table of contents This 

article contains the following... 

URL: ftp.kiarchive.ru/pub/internet/faq/csw_faq 

Last modified on: 28-Mar-1993 - 42K bytes - In English {K0I8-R) 

[ Translate 1 [ % Related pages 1 

6. How can I compare two date strings? 

How can I compare two date strings? If the dates are in an easily parsed, predetermined format, then you can break 
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fSearch; 



pFr^^- Internet: Access 



:'>Flii)d this: ^^tpggt4-artg@ 

■■■■ ,J-/'^^ti. ^iM 




Web Results 



Click a tab for more results on ftpget+article 3893 of comp.. 



What is a tab? 




WEB PAGES i> 35,504 pages found. 



^ Family Filter is off 



liShopjHereff 
amazonxom. 



Search: FTPGET+A... 
Books Music Movies 
Toys Electronics 



3^1. No Title 

Article 3893 of comp.lang.perl: Xref: feenix.metronet.com comp.lang.perl:3893 Path:... 

; URL: vyww.metronet.com/perlinfo/scripts/ftpstuff/ftpget 

J Last modified on: 1-Jul-1993 - 22K bytes - in English 

C r Translate 1 f More pages from this site 1 \% Related pages 1 

T 2. No Title 

Article 3893 of comp.lang.perl: Xref: feenix.metronet.com comp.lang.perl:3893 Path:... 
• I URL: ftpJoxinfo.co.th/pub/unix/programming/perl/ftp/ftpget 

4 Last modified on: 1 -Jul-1 993 - 22K bytes - in English 

r Translate 1 f Wj Related pages 1 

7^Z. No Title 

!: Article 3893 of comp.lang.perl: Xref: feenix.metronet.com comp.lang.perl:3893 Path:... 

URL: kawn u g . ozn et. ks u . ed u/perl/SC R I PTS/ftpstuff/ftpget 
- Last modified on: 27-Mar-1996 - 22K bytes - in English 

C [ Translate ] [ More pages from this site ] rtt Related pages ] [ Facts about: Kansas State 
Univ... 1 

4. Comprehensive Perl Archive Network 

CPAN: Comprehensive Perl Archive Network. Welcome to CPAN! Here you will find All Things Perl. CPAN is the 
Comprehensive Perl Archive Network.... 
URL: www.cpan.org/ 

Last modified on: 1-Novr1999 - 3K bytes - in English 

f Translate 1 f More pages from this site 1 f ^ Related pages 1 



5. comp.lanq.perl.tk FAQ 

From: pvhp@lns62.lns.cornelLedu (Peter Prymmer) Newsgroups: compJang.perl.tk.comp.lang.pe 

l.announce,comp.answers,news.a swers Subject... 

URL: w4.lns.cornell.edu/-pvhp/ptk/ptkFAQ.html 

Last modified on: 27-Jul-1997 - 251 K bytes - In English 

f Translate ] f More pages from this site 1 f@ Related pages 1 

6. comp.lang.perl.tk FAQ 

From: pvhp@lns62.lns.corneil.edu (Peter Prymmer) Newsgroups: comp.lang.perl.tk.comp.lang.pe 

l.announce,comp.answers,news.a swers Subject... 

URL: wwwJns.cornell.edu/-pvhp/ptk/ptkTOC.html 

Last modified on: 27-JuI-1997 - 12K bytes - In English 

r Translate 1 f More pages from this site ] [^ Related pages ] 
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^feW^h Live! Shopping Raging Bull "" Wee interne t Access Email 




amazoacom. 



WEB PAGES P 81 pages found. ^Family Filter Is off 

Search: MIRROR A.., 

Hr^ Ho Title Books Music Movies 

'rr Computer underground Digest Sun Oct 25, 1992 Volume 4 : Issue 53 Editors: Jim Thomas Toys Electronics 

and Gordon Meyer (TK0JUT2@NIU.BITNET) Archivist: Brendan Kehoe... 

£ URL: venus.soci.niu.edu/*'CUdigest/CUDS4/cud453.txt 
lC Last modified on: 7-Nov-1 992 - 46K bytes - in English 
fy r Translate 1 \ tt Related pages 1 



iZ^ No Title 

'^l Article 5397 of comp.lang.perl: Xref: feenb(.metronet,com comp.infosystems.www:1336 y 
H comp.lang.perl:5397 Newsgroups:... 

URL:ftp.telecom.sk/pub/mirror/CPAN/scripts/i...WWW/http,get.pl 

Last modified on: 25-Aug-1 993 - 2K bytes - in English ^:==?5s=5« 
L ;i [ Translate J 

iS Perl-FAQ-1 

Table of Contents. 1.1) What is Perl? 1.2) Is Perl hard to learn? 1.3) Should I program 
In everything in Perl? 1.4) Where can I get Perl over the.. . 
:fi URL: ftp.sra.co.jp/public/doc/perl-faq/Perl-FAQ-l .html 

Last modified on: 27-Jan-1 994 - 37K bytes - in English 

r Translate 1 \ % Related pages 1 

4. No Title 

usr/bin/perl # Obey the remove commands generated but not done by mirror. # NEED TO unlink 
/public/micros/ibmpc/simtel20/ prdshtrtcSIO.arc # NEED TO... 
URL: www.mit.edu/afs/sipb.mit.edu/user/warior.. .rror/do_unlinks 
Last modified on: 9-Aug-1993 - 316 bytes - in English 
r Translate 1 \ % Related pages 1 f Companv factsheet 1 

5. No Title 

Archive-name: finding-sources Version: $ld: cswjaq.v 1 .109 1993/03/03 14:32:1 1 jik Exp $ I. Table of contents This 

article contains the following... 

URL: ftp.kiarchive.ru/pub/internet/faq/csw_faq 

Last modified on: 28-Mar-1993 - 42K bytes - in English (K0I8-R) 

f Translate 1 [ % Related pages 1 

6. How can I compare two date strings? 

How can I compare two date strings? tf the dates are in an easily parsed, predetermined format, then you can break 
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AltaVisia^eb Results 



http:/Avww.altavista.coin/cgi-biii/query?s. . .of+comp lang.perl&search.x=50&search y=8 



altd 



vista: SEARCH 



y Search - Live! ShoDDina Raqinq Bull Free Internet Access EmaHii 



Web Results 




Click a tab for more results on 10383 of comp.lang.perl 



iPrbductsi 



What is a tab? 



i ; D i scuss ib h:^G ro u psi 



WEB PAGES 19,812 pages found. 



^ Family Filter is off 



nl. No Title 

,5: bin/sh #From cs.utexas.edu!a§uvax!gatech!ne s.byu.edu!eff!iWarp.intel.com| ews Fri May 1 

14:52:11 CDT 1 992 #Article: 10383 of comp.lang.perl #Path:... 
W URL: www.metronetcom/perl/scripts/ftpstuff/ftpr 

CC Last modified on: 6-Apr-1 993 - 8K bytes - m English j 

flj r Translate 1 f More pages from this site 1 ftt Related pages 1 

;p;2. Comprehensive Perl Archive Network 

i CPAN: Comprehensive Perl Archive Network. Welcome to CPAN! Here you will find All 

Things Perl. CPAN is the Comprehensive Perl Archive Network.... 

URL: www.cpan.org/ 
Ir^. Last modified on: 1-Nov-1999 - 3K bytes -jn English 

flj [ Translate ] [ More pages from this site ] [ % Related pages ] 

r: comp.lanq.perl.tk FAQ 

H" From, pvhp@lns62.lns.cornell.edu (Peter Prymmer) Newsgroups: 

comp-lang.perl.tKcomp.lang.pe l.announce.comp.answers.news.a swers Subject:. 
URL: w4.lns.cornell.edu/'-pvhp/ptk/ptkFAQ.html 
Last modified on: 27-JuI-1997 - 251 K bytes - in English 
f Translate 1 \ More paces from this site 1 \ % Related pages 1 




Search: 10383 OF... 
Books Music Movies 
Toys Electronics 



4. comp.lanq.perl.tk FAQ 

From: pvhp@lns62.lns.cornell.edu (Peter Prymmer) Newsgroups: comp.lang.perl.tk.comp.lang.pe 

l.announce.comp.answers.news.a swers Subject... 

URL: www.lns.cornell.edu/-pvhp/ptk/ptkTOC.html 

Last modified on: 27-Jul-1997 - 12K bytes - in English 

r Translate 1 f More pages from this site 1 \ % Related pages 1 

5. PHOAKS: Frequency for comp.lang.perl.announce 

People Helping One Another Know Stuff. Freq. "Together, we know it all." ;POSTERJD=;" 

TARGET=_top>Pheedback. Recency. Top Posters. Area Summary.... 

URL: www.phoaks.eom/phoaks2/newsgroups/comp/l... resources0.html 

Last modified on: 3-Nov-1999 - 91 K bytes - in English 

r Translate 1 \ More pages from this site 1 f Hi Related pages 1 

6. CGI Scripts and Resources 

CGI scripts, desktop publishing, fonts, web authoring, and much more... 

URL: desktoppublishing.com/cgl.html 

Last modified on: 7-Jan-2000 - 1 3K bytes - in English 
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1 v^U 'suit** 



http://www altavisla com/cgi-bin/query'?s of+comp.Iang per I&searc h.x =5 0& search y=8 



alta' 



.vista: SEARCH 



Free Internet Access 1 




Click a tab for more results on 10383 of comp.lang.perl 



What is a tab? 



WEB PAGES ^ 19,812 pages found. 



^ Family Filter is off 



1. No Title 



bin/sh #Frcm cs.utexas.edu!a§uvax!gatech!ne s.byu.edu!eff!iWarpjntel.com( ews Fri May 1 
14:52:11 CDT 1992#Article: 10383 of comp.lang.perl #Path:„. 

CO URL: www.metronetcom/peri/scripts/ftpstuff/ftpr 

Last modified on: 6-Apr-1993 - 8K bytes - in English 

rC f Translate 1 [ More pages from this site If Ml Related pages 1 

^ Comprehensive Perl Archive Network 

j= j. CPAN: Comprehensive Perl Archive Network. Welcome to CPAN! Here you will find All 
iJI Things Perl. CPAN is the Comprehensive Peri Archive Network.... 
\; URL: www.cpan.org/ 

Last modified on: 1-Nov-1999 - 3K bytes - in English 
P r Translate 1 f More pages from this site 1 F TOl Related pages 1 

£^ comp.lanq.perLtk FAQ 

C; From: pvhp@lns62.lns.corneil.edu (Peter Prymmer) Newsgroups: 

k4 comp.lang.pert.tk.comp.lang.pe l.announce.comp.answers.news.a swers Subject:... 

[ URL: w4.lns.cornell.edu/~pvhp/ptk/ptkFAQ.html 

Last modified on: 27-Jul-1 997 - 251 K bytes - in English 

[ Translate 1 f More pages from this site 1 [ % Related pages 1 

4. compJanq.perl.tk FAQ 

From: pvhp@lns62.lns.corne[l,edu (Peter Prymmer) Newsgroups: comp.lang.peri.tk,comp.Iang.pe 

l.announce,comp-answers,news.a swers Subject... 

URL: www.lns.cornell.edu/-pvhp/ptk/ptkTOC.html 

Last modified on: 27-Jul-1997 - 12K bytes - in English 

f Translate 1 f More pages from this site 1 [ft Related pages 1 



ama^onjcom: 



Search: 10383 OF... 
Books Music Movies 
Toys Electronics 



5. PHOAKS: Frequency for comp.lang.perl.announce 

People Helping One Another Know Stuff. Freq. ^Together, we know it all." ;POSTERJD=;" 

TARGET=_top>Pheedback. Recency. Top Posters. Area Summary.... 

URL: www.phoaks.com/phoaks2/newsgroups/comp/l...resources0.htmi 

Last modified on: 3-Nov-1999 - 91 K bytes - in English 

f Translate 1 1 More pages from this site 1 f W!i Related pages 1 

6. CGI Scripts and Resources 

CGI scripts, desktop publishing, fonts, web authonng, and much more.., 

URL: desktoppublishing.com/cgi.html 

Last modified on: 7-Jan-2000 - 13K bytes - in English 



3/24/00 7.50 AM 




(FILE 'USPAT' ENTERED AT 17:28:07 ON 14 JUL 1999) 



LI OS BROADCAST? AND 4974149/PN 

L2 . 2247 S BROADCAST? (P) SELECTIVE? 

L3 2 S L2 AND 4974149/UREF 

L4 70' S L2 (P) UPDAT? 

L5 4 S L4 (P) HOST 

L6 - . 8 S L4 (P) REMOTE? 

L7 349 S BROADCAST? (P) (SELECTIVE? (2A) (UPDAT? OR RECEIV?) ) 

L8 , 26 S L7 (P) REMOTE? 

L9 ' 396 S BROADCAST? (4A) UPDAT? 

LIO 23 .S L9 (P) SELECTIVE? 




{FILE »USPAT» ENTERED AT 13:48:26 ON 14 JUL 1999) 

LI IS 4974149/PN 

L2 0 S LI (P) MODIF? 

L3 0 S LI (P) CHANG? 

L4 241 S (ALTER? OR MODIF? OR CHANG?) .(2A) 'DESCRIPTOR? 

L5 113 S L4 (P) data" 

L6 • 12 S L5 (P) REQUEST? ■ 

L7 ^ 0 S LI (P) DESCRIPTOR? ' 

, L8 1 S LI AND ((MODIF? OR CHANG? OR CREAT?) (2A) DESCRIPTOR?) 

L9 1 S LI AND CENTRAL DIGITAL 

LIO 23 S USER (4A) (TRANSMIT? OR SEND? OR SENT OR PROVIDE?) (4A) 

(DE ' ^ 

Lll 45 S .(SENT OR SEND? OR PROVID? OR TRANSFER? OR TRANSMIT?) ( 4A 

) { 

L12 9 S L11/AB,CLM 



m 



(FILE 'USPAT' ENTERED AT 12:48:35 ON 13 JUL 1999) 



T 1 

LI 


T 1 R 
/ XO 


b 


/DT?OTTTrc:T9 ( /ni\ ^ TTslTTORMZiTTON flR DATA OR UPDATED ) ( 4A^ 


REM 


Ul rj 










L2 


43 


S 


LI (P) SOFTWARE 




L3 


1499 


s 


(REQUEST? (4A) (INFORMATION OR DATA OR UPDATE)) (P) 


( (RE 


MOT 










L4 


90 


s 


L3 (P) ADDRESS? (P) SPECIF? 




L5 


314 


s 


META-DATA OR METADATA 




L6 


0 


s 


LI (P) L5 




L7 


32 


s 


L5 (4A) (TRANSFER? OR TRANSMIT? OR SEND? OR SENT) 




L8 


2 


s 


L7 (P) REMOTE? 




L9 


70 


s 


L5 (P) UPDAT? 




LIO 


5 


s 


L7/AB,CLM 






t f 



(FILE 'USPAT' ENTERED AT 08:19:55 ON 13 JUL 1999) 

LI 74088 S (TRANSFER? OR SEND OR TRANSMIT?) (4A) (INSTRUCTIONS OR S 
PEC 

L2 194 S LI (P) UPDAT? (P) SOFTWARE 

L3 0 S L2 (P) (INTERNET OR WEB) 

L4 671 S LI (P) (INTERNET OR WEB) 

L5 21 S L4 (P) UPDAT? 

3 S L2 (P) (CD-ROM OR CDROM) 

L7 687 S LI (P) REQUEST? (P) UPDAT? 

L8 648 6 S LI (P) REMOTE 

L9 1321 S L8 (P) CENTRAL? 

LIO 327 S (AUTOMATIC? (4A) UPDAT?) (P) (REMOTE? OR CENTRAL-?) 

Lll 20 S LIO (P) LI 

L12 11 S 5694546/UREF 



0 
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□ s_Dp_Dl_ni_Dt □c_nh_Du_Dn_Dk Size of chunks to split up files into 

[102400] 

□ s_Dp_ni_Di_Dt □p_na_Dt_Dt regexp of remote pathnames to split up before 

storing locally 

□ LDo_Dc_Da__nl_Dl_Ds_nl_nR_Df_Di_nl_ne 

local file containing Is-IR - else use remote 
ls_lR_file. This is usefial when first mir- 
roring a large package. 

□I Ds □1_DR □f_ni__ni_De remote file containing Is-IR - else run 

remote Is 

□n □a_Dm_De □m_Da_np_np_Di_Dn_ng_ns remote to local pathname mappings (a perl 

J;;; command, eg s:old:new:) currently only one 
allowed 

□^iDeDt □n_De_nw_ne_Dr get the remote file if its date is newer than 

ij, local [true] 

□g^ne__nt_ns_Di_Dz_ne_Dc_ah_Da_Dn_ng_ne 
- get the file if size if different fi-om local. 
J; If a file is compressed when fetched then the 
size is automatically ignored, [true] 

□ c^Do_nm_np_nr_De_ns_ns □p_Da__Dt_nt regexp of files to compress before storing 

Q locally. (See also get_size_change.) 

□ c_Do_nm_Dp_nr_ne_ns__Ds □e_nx_nc_ni regexp of files not to compress [V[zZ]] 

□f_Do_Dr_Dc_De □t_Di_nm_ne_ns Force local times to match remote times [yes] 

□r_De_Dt_Dr_Dy □c_Da_Dl_ni If initial connect fails retry ONCE after ONE 

minute [yes] 

D^_Dp„Dd_na_nt_ne □l_Do__Dg Filename, relative to local_dir, where an 

update report is to be kept 

□ m_Da_ni_Dl □t_no Mail a report to this comma separated list of 

people 

□u_Ds_ne_nr User name or uid to give to local pathnames 



_ng_nr_Do_Du_Dp Group name or gid to give to local pathnames 

_Df_Di_Dl_De_am_Do_Dd_ne Mode to give files created locally [0444] 

□ d_Di_Dr □m_no_nd_ne mode to give directories created locally 

[0755] 

_Dt_Di_Dm_De_no_nu_nt timeout ftp requests after this many seconds 
Sun Release 4.1 Last change: 13 August 1991 4 
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I [20] 

_ □ frP t_ □ p □ p_ □ o_ □ r_ □ t p ort number of remote ftp daemon [2 1 ] 

_n^r!Dr_no_nx_ny set to 1 to use proxy ftp service [0] 

□^ □r_no_Dx_ny □f_nt_Dp □p_Do_nr_Dt port number of proxy-service ftp daemon 

Jf [4514] 

□ p^Dr_Do_nx_ny □g_na_nt_De_nw_na_ny name of proxy-service, may also be supplied 

J by environmental variable INTERNET_HOST 

Q [internet-gateway] 

□r_De_nc_nu_nr_ns__ni_nv_ne do sub directories as v^ell [true] 

_nf_al_Da_Dg_ns_nr_De_nc_Du_Dr_Ds_ni_Dv_De 
flags to send to Is to do a recursive listing 

__Df_Di_na_ag_as_nn_no_Dn__nr_ne_nc_nu_nr_ns_ni_nv_ne 

flags to send to Is to do a non-recursive 
listing 

□m_Do_Dd_De □c_Do_Dp_ny flag indicating if v^e need to copy the mode 

bits [false] 

□ i_Dn_nt_De_nr_na_nc_nt_ni_nv_ne noninteractive copy default [false] 
□t_ne_Dx_nt □m_no_nd_ne transfer in binary mode by default [false] 



□f_Do_ar_nc_De transfer selectively by default [false] 

_Dg_De_nt_nf_ni_nl_De perform get, not put by default [true] 

□v_De_nr_Db_Do_ns_De Verbose messages [false] 

_ad_Di_Ds_nc_Do_Dn_Dn_De_Dc_Dt disconnect from remote site at end of package 
[false] 

*_Dr_ne_Dm_Do_Dt_De □f_Ds Remote file store type. (Only copes with 

Unix at the moment) [unix] 

□m_Da_ni_nl □p Dr Do Dg Program called to send to the mail_to list, 

[mail] 

□ d_De_Dl_ne_nt_ne □s_no_Du_nr_nc__De Delete the source files and dirs once 

transfered. [false] 

Each group of keywords defines how to mirror a particular 
paclc^^e and should begin with a unique package line. The 
pack^e name is used in report generation and by the -p 
argu^Bent, so pick something mnemonic. The minimum needed 
for d&h package is the site, remote_dir and local_dir . On 
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finding a package line all the default values are reset. 

If the package name is defaults then no site is contacted 
but the default values given for any keywords are changed. 
Personally I begin my config files with: 

package=defaults 

remotejpassword=ukuug"Soft@doc.ic. ac.uk 

get_newer=yes 

get_size_change==yes 

If the package is not defaults then mirror will perform the 



following steps. Unless an internal failure is detected any 
error will cause the current package to be skipped and the 
next one tried. 

If Mirror is not already connected to the site it will 
disconnect from any site it is already connected to then 
attempt to connect to the remote site's ftp daemon. It will 
then login using the given remote username and password. 
Once connected mirror turns on binary mode transfers. Next 
it changes to the given local directory and scans it to get 
the details of the local files that already exist, if neces- 
sary the local directory will be created. Once this is com- 
pleted the remote directory is similarly scanned. Mirror 
does this by changing to the remote directory and tuning the 
ftp LIST command, passing the -IRt options. (I am not very 
happy about this bit and hope to allow it to pull back a 
file containing the remote directory listing instead.) Each 
remote pathname will have any specified mappings performed 
on it to create a local pathname. Then any checks specified 
by the exclude__patt, max_days, get_newer and get_size_change 
keywords are applied on names of files or symlinks. Only 
excligSe j)att checking is applied to directories. 

The Hove creates a list of all required remote files and 
the path names to store them in. 

Oncfe'the directory listing is completed all required files 
are fetched from the remote site into their local path 
nam^ej. This is done by pulling the file into a temporary 
file in the target directory. If required the temporary 
file ifpompressed. The temporary file is renamed when the 
tran^fier is successfial. 

EXAMPLES 

Here is the mirror, defaults file from the archive on 
src.doc.ic.ac.uk, 

# This is the defaul mirror settings used by my site: 

# src.doc.ic.ac.uk (146. 169.3.7) 

# This is home of the UKUUG Software Distribution Service 
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# 

# Lee McLoughlin <lmjm@doc.ic.ac.uk> 

# Set my defaults 
package=defaults 

# Keep all local_dirs relative to here 
local_dir=/vol/public/ 

remote_password=ukuug-soft@doc. ic.ac.uk 

mail_to=lmjm 

dir_mode==0755 

file_mode-0444 

user=0 

group^O 

get_newer=yes 

get_size_change=yes 

# Don't overwrite my mirror log with the remote one. 
. . # Don't pull back any of their mirror temporary files. 
yexcludejatt-^.mirror$|^WlROR.LOG$r.in..^$|^#.*#|^^^ 
3# Don't compress arc, zip, boo, readme files and index.txt files 

rycompress_ 

_excl+|.arc$|.zip$i.boo$|[Rr][Ee][Aa][Dd][Mm][Ee]|index.txt 

fU# Keep a log file in each updated directory 
5';^updateJog=.mirror 
Andftre is part of the mirror.config: 

pj'^kage^gnu 

^-|Comment=Powerfijl and fi-ee Un*x utilities 
□ site=prep. ai.mit.edu 

remote_dir=/pub/gnu 
^5 local_dir+gnu 

H exclude_patt+|^ListArchives/|^lost+fi3und/|^scheme-7,0/|^.history 

# I tend to only keep the lastest couple of versions of things 

# this stops mirror from re-pulling the older versions I've removed 
max__days=30 

package^elisp-archive 

site^tut. cis. ohio-state. edu 

remote_dir=/pub/gnu/emacs/elisp-archive 

local_dir+gnu/EmacsBits/elisp-archive 

package=X 

comment=The X Area at export 
site=export. lcs.mit.edu 
remote_dir=/contrib 
local_dir+X/contrib 

# go-LO.b.tar.Z is immense so I store it split locally. 
exclude_patt+l^unicoml^go-1.0.b.tar.Z 



# I tend to only keep the lastest couple of versions of things 

# this stops mirror from re-pulling the older versions I've removed 
max_days=30 

package=cnews 

comment=The C News system 



Sun Release 4.1 Last change: 13 August 1991 7 



MIRR0R(1L) MISC. REFERENCE MANUAL PAGES MIRROR(IL) 



O site=ftp . c s . toronto . edu 
lO remote_dir=/pub/c-news 
u3 local_dir+news/c 

?3compress_excH-|patches/PATCHDATES 
^ ^ compress_patt=patches/ 
fZ, exclude_patt+|^c-news.Z 

# and on, and on ... 

fflNTSfy 

Alwil^s on adding in a new package check it out first turning 
on thh -_Dn option. 

If yda are adding to an existing archive then it is ususally 
best to force the timestamps so time comparisions will work. 

Try and have all packages that are being retrieved from the 
same site one after the other. That way mirror will only 
have to login once. 

Keep your default settings in a separate file. That way you 
will, hopefully, be able to share mirror details with oth- 
ers. 

NETIQUETTE 

If you are going to mirror a remote site please obey any 
restrictions that the site administrators place on access. 
You can generally find the restrictions on connecting into 
the archive using the standard ftp conamand. Any restric- 
tions are normally given as a login banner or in a, hope- 



fully, obvious file. 



Here are, what I hope are, some good general rules. 

Only mirror a site well outside the working hours of both 
the local and remote sites. 

It is probably unfriendly to try to mirror a remote site 
more than once a day. 

Before trying to mirror a remote site try and find the pack- 
ages you want fi"om local archives, no one will be pleased if 
you soak up a lot of network bandwidth needlessly. 

If you have a local archive then tell people about it so 
they don't have to waste bandwidth and CPU at the remote 
site. 

Do remember to check your config files fi-om time to time in 
case the remote archive has changed their access restric- 

tiong?=^ 
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Check the remote site regularly for any new restrictions. 

SEE ALSO 
perl(l), ftp(l) 

BUGS 

The remaining keywords need to be implemented. 

Should be able to mirror non Un*x sites (it may be able to 
but I have not tested this - the remote Is is the problem). 

It should restart file transfers where they left off. 



Hanging data transfers should be detected. 




Should allow for multiple packages from the same host, effi- 
ciently. 

Some of the netiquette guidelines should be enforced. 
Should be able to cope with links as well as symlinks. 

Beginning to suffer from _Dc_Dr_ne_De_Dp_ni_Dn_ng _Df_De_Da_Dt_Du_Dr_Di_Ds_D 
AUTHOR 

Written by Lee McLoughlin <lmjm@doc.ic.ac.uk>. It uses the 
ftp.pl package by: Alan R. Martello <al@ee.pitt.edu> which 
uses the chat2.pl package by: Randal L. Schwartz 
<merlyn@iwarp . intel. com> 
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/Article 5397 of comp^ng.perl: 

fXref: feenix.metronet.com coinp.infosystems.www;1336 comp.lang.perl:5397 
jrvTewsgroups: comp.infosystems.www,comp.lang.perl 
1 Path: 

' feenix.metronetxom!news.ecn,bgu.edu!usenet.insxwm.edu!howlandTeston.ans.ne^ 
enet 

From: osciar@cui,unige.ch (Oscar Nierstrasz) 

Subject: perl script for connecting to http servers 

Message-ID: <1 993 Aug27. 094503 . 1 5947@news.umge.ch> 

Sender: usenet@news.unige.ch 

Reply-To: oscar@cui.unige.ch 

Organization: University of Geneva, Switzerland 

Date: Fri, 27 Aug 1993 0 9:45:03 GMT 

Lines: 73 



Well, the problems I had in my previous posting apparently didn't have to 
do with what I thought. (I still don't really understand what was wrong.) 

Anyway, for what it is worth, here's a little perl script to grab 
html pgfcges given a list of URLs . It may be useful as a start to build 
more ejgborate scripts (like robots). 

Oscar CO 



#!/locaI/bin/perl -s 

# hget^i, — get an html page from an http server 

# h: • ^ 

# OscaBNierstrasz 26/8/93 oscar@cui.unige.ch 

# 

# folloi'ing the example of Gene SpafFord's ftpget 

't -. 

require "chat2.pl"; 



die "Usage: hget <http-url> ...\n" unless $#ARGV >= 0; 
Stimeout = 60; 

foreach $url (@ARGV) { 

if($url=~mrhttp://(.*)|){ 
$host= $1; 
$port = 80; # default 
Srequest = "/"; # default 

($host ^ s|^['^/]+)/(.*)$|$l|) && (Srequest = $2); 
($host =~ s/:(\d+)$//) && (Sport = SI); 

} 

# relative URL, so assume previous host & port: 
elsif($url--/'^http:(.*)/){ 
Srequest = $1; 



} 



-;^unless ($host) { 
%J' ^ warn "hget: no host for $url\n"; 

next; 

} 

} 

else { warn "hget: $url is not an http URL\n"; next; } 
&http_get($host,$port,$request); 



sub http_get { 

local($host,$port,$request) = @_; 
(Shandle &chat'open_port($host, $port)) 

II die "chafopen($host,$port): $!\n"; 
&chat'print($handle,"GET $request\n") 

II die "chat'print(GET Srequest): $!\n"; 

$done = 0; 
do{ 

&chat'expect($handle, $timeout, 

q{print "Schat'thisbuf }, 
•EOF, '$done= 1', 

■TIMEOUT', 'print STDERR "TIMEOUT\n"; $done 

% II die "chat'expect: $!\n"; 

l2 } until $done; 

&chat'close($handle); 

} g 

_ENr^ 



H^I Dr. O.M. Nierstrasz, Centre Universitaire d'Informatique 
UniverSty of Geneva, 24, rue General-Dufour, CH-1211 Geneva 4, Switzerland 
% Tel: +41 22 705.7664 Seer: lOSlllQ Fax: 320.2927 
E-mail: oscar@cui.unige.ch Home: 733,9568 



■A' 

I 



Article 3893 of corfip.lang:perl: 

Xref: feenix.metronet.com comp.lang.perl:3893 

Path: 

feenix.metronet.com!news.ecn.bgu.edu!mp.cs.mu.edu!uxl.cso.uiuc.edu!howland.reston.ans.net!gatech!asuvax!ncar!^ 

per ! aspen, crayco s . com ! scott 

From: scott@craycos.com (Scott Bolte) 

Newsgroups: comp.lang.perl 

Subject: Re: ftpget script (provided) 

Message-ID: <1993Jun30. 175050. 14781@craycos.com> 

Date: 30 Jun 93 17:50:50 GMT 

References: <C9FtMu.5zA@newsserver.technet.sg> 

Organization: Cray Computer Corporation 

Lines: 832 

In article <C9FtMu.5zA@newsserver.technet.sg> mathias@solomon,technet.sg (Mathias Koerber) writes: 



>What I'd like is a script that just goes to a specified host, logs in, 
>cd's to the directory and then ftps the named files. Would be nice if it 
>sat atop ftp.pl. 

>Does afijfone already have such a beast? 

j": I wrote just such a beast a while ago and have been using it 

ever since. (In fact, it was used to pick up perl 4.036 just 
I f- two nights ago.) It does not use ftp.pl, all it requires is 

\i ftp- 

If you have the at command available it will even do the 
:t transfers at night to ease the load on the net. 

C Here is a brief description of the scripts shar'ed together 
below: 

ftpget Obtains a single file fi"om a remote host. 

ftpmget Obtains a set of files fi-om a remote host, 

ftpls Run Is -1 in a specific directory on a remote 
host. 

ftplist Given a set of hosts & directories make a 

series of calls to ftpls. The results are 
placed in files that reflect the listing 
source. 

Enjoy, 



Scott 



Scott Bolte scott@craycosxom +1 719 540 4186 

Cray Computer Corporation, 1110 Bayfield Drive, Colorado Springs, CO 80906 
As anyone here will tell you: I speak for myself. 



*** On the Internet no one can hear you scream *** 

rip, cut, sever, slice, dice or tear here ^ 

#\ /bin/sh 

# This is a shell archive. Remove anything before this line, then unpack 

# it by saving it into a file arid typing "sh file*'. To overwrite existing 

# files, type "sh file -c". You can also feed this as standard input via 

# unshar, or by typing "sh <file", e.g.. If this archive is complete, you 

# will see the following message at the end: 

# "End of shell archive." 

# Contents: README ftpget.pl ftplist.pl ftpls.pl ftpmget.pl 

# Wrapped by scott@copper on Wed Jun 30 1 1 :48:53 1993 
PATH=^in:/usr/bin:/usr/ucb ; export PATH 

if test -f 'README' -a "${1}" != "-c" ; then 

echo shar: Will not clobber existing file \"*README'\" 
else 

echo shai: Extracting \'*'README'\" \(1371 characters\) 
sed "s/^1//" >'README' «'END OF FILE' 



X ^ Ftp Perl Scripts, Version 0. 1 

X Z 

X IJ^ Copyright (c) 1993, Scott Bolte 

X % 



These scripts are free software. But if you want to send money anyway I 
won't mind- The scripts are distributed in the hope that they will be 
usefiil, Mt WITHOUT ANY WARRANTY. 

X g 

You carrtake the scripts and use them yourself You can even include 
them in ^it product you sell as long as they do not add to the product 
cost. Buf the copyright must be maintained. 
X 

The files in this directory were cobbled together in the last few 
weeks. I have been using to automate ftp transfers. They also can be 
asked to run at night in order to spread the demands on the net. 



X 

X ftpget Obtains a single file from a remote host. 
X 

X ftpmget Obtains a set of files from a remote host. 
X 

X ftpls Run Is -1 in a specific directory on a remote 

X host. 

X 

X ftplist Given a set of hosts & directories make a 
X series of calls to ftpls. The results are 

X ' placed in files that reflect the listing 

X source. 



X - 

X ftpvaporware A script, not yet written, that can look at the 



X data provided by ftplist. It will provide 

X notification that a item on an archive has 

X changed. Or that a new release of a program is 

X now available. 

X 



I would appreciate if any additions you make are sent to me. I will try 

to incorporate them in any future releases. 

X 

X Scott Bolte (scott@craycos.com) 

X 1993.06.30 
END_OF FILE 

if test 1371 -ne >c -c <'README'^ ; then 

echo shar: \"'README'\" unpacked with wrong size! 

fi 

# end of "README' 
fi 

if test -f 'ftpgetpl' -a "${1}" != "-c" ; then 
echo shar: Will not clobber existing file \"'ftpget.pr\" 
else 

echo shfflc Extracting \"'ftpget.pl^" \(5666 characters\) 
sed "s/'^W" >'ftpget.pl' «'E]SID_OF_FILE* 
X#!/bin/||ri 

X E 

x ummMmM #mm#mmmmmmm##mmitim#mm^ iii^^ 
x# 

X# Cop^ght 1993 Scott Bolte (scott@craycos.com) 

X#^ 

X# U Leave this copyright alone. But feel fi-ee to do with the script 
X# K as you please. Sending me enhancements would be appreciated. 

X# O 

X# ="r If you feel like pretending this is shareware, and want to 
X# send some money my way, feel fi^ee. I promise not to object. 

x# 

X# Summary of ftpget: 
X# 

X# Obtain a file via ftp from a remote system. Anonymous ftp 

X# is used. Can be asked to delay the actual ftp request. 

X# On failure print out a call that can be used to try again. 

X# 

X# History: 
X# 

X# 1 993 . 06 . 1 4 Initial implementation. 

X# 

X# 1 993 .06. 1 5 Made remote and local file name processing safe 

X# even when the file name contains white space. 

X# 

X# 1 993 .06.28 Added interface to use "at" internally. 

X# 



X# Examples: 
X# 

X# ftpget —at 23 :30 prep.ai.mit.edu pub/gnu/perl-4.036.tar.gz 

X# 

X# ftpget -at 23 :30 prep.ai.mit.edu pub/gnu/perl-4,036.tar.gz new-perl 

X# 

X# If you have an ftp hierarchy, as I do, the remote system can be 

X# derived from the current path. 

X# 

X# cd -/ftp/prep.ai.mit.edu 

X# ftpget -at 23:30 - pub/gnu/perM.036.tar.gz 

X# 

X 

X$zero- $0; 
XSzero s,.*/,„ 
X 

sub usage { 

X print «EOS; 

Usage: $zero [options] system remote_file [local_file] 

X — Stop command line processing, 

X -a o£~at time At the given time, v^hich should be in hh:mm format, 

X £C run the $0 command. 

X -d o3 -debug Do not run the actual ftp command, use cat instead. 

X -V 61=; -verbose Enable the verbose status message. 

X -? pf^ -h or —help Print this usage statement. 

X S 

X If tie system is try to determine the remote system from 
X thecurrent path. 
XEOS u 

X} m 

X ^r-E3? 

x# 

X# Set tMe default values. 

x# "-^ 

X$verbose =0; 



XSdebug = 0; 

X$cmd = "ftp -n"; # change "ftp -n" to "cat -n" ft)r testing. 

X$time = time; # Get the time so we can recreate an "at" 
X # command if need be. 

X 
X# 



X# Process the command line. 
X# 

while ($ARGV[0] =~ /^-./) { 



X $_ = shift; 

X if { 

X last; 

X } 
X 



X " "if (/^-a$/ II /^--atS/) { 

X Sdelayjime = shift; 

X if ( Sdelayjime !~ nd\d?:\d\d$/ ) { 

X print(STDERR 

X "Bad time specification \"$delay_time\".\n"); 

X &usageO; 

X exit(l); 

X } 

X next; 

X } 

X if (/^-d$/ II /^-debugs/) { ■ 

X $debug++; 
X $cmd ="cat-n"; 

X next; 
X } 

X if(/^-v$/||/^-verbose$/) { 

X $verbose-H-; 
X next; 
X } 
X 

X if (/M?$/ II /^-h$/ II /^-help$/) { 

X Q &usageO; 
X i exit(O); 
X } 

X print "I don't recognize this switch: $_\n"; 

X :-y &usage(); 
X \t exit(l); 



X 

x# L • 

X# VeqSy we have the right number of positional arguments. 

X# O 

if ( S#mGY < 1 II $#ARGV > 2 ) { 
X &usage(); 
X exit(l); 

X} 

XSsystem = $ARGV[0]; 
X$remote_file = $ARGV[1]; 
X 
X# 

X# If the system spec was "-" try to figure out where we are. From that 

X# we might be able to construct a default host. 

X# 

if($systemeq "-" ) { 



X Ssystem ='/bin/pwd'; 

X Ssystem sAn//; 

X $original= Ssystem; 

X Ssystem =~ s,'^.*/ftp/„; 

X Ssystem =~s,/.*S„; 

X die("Could not determine system given path \"$original\".\n") 



X - ' ■ ifSsystemeq ""; 

X print(STDERR "Derived system is \"$system\" .\n") if $verbose; 

X} 
X 

x# 

X# Either take the optional third argument or construct it from the second. 

X# 
X 

if ( "$remote_flle" eq "" ) { 

X print(STDERR "Must specify a non-null file nameAn"); 

X exit(l); 

X} 

if($#ARGV==2) { 

X $local_file = $ARGV[2]; 

X Sexplicit = 1; 

X} else { 

X $local_file= $remote_file; 

X $local_file =~ s,/+$„; 

X $local_file — s,.*/„; 

X Sexplicit = 0; 
X 

X □ print(STDERR'"Derived local path is \"$local_file\".\n") if Sverbose; 

X ffl if("$local_file"eq"") { 

X print(STDERR "Unable to construct a local filename.\n"); 

X ^ exit(l); 

X } 

X} In 
X S4 
X 

X# Malcb' the path specifications safe even when they contain spaces. 
X# p 

XSsafeJJemote = $remote_file; 
XSsafeJbcal = $local_file; 

X$safe3mote =~ s/(. *)/"$!"/ if $safe_r emote — As/; 
XSsafeJocal ^ s/(. *)/"$!"/ if $safe_local — As/; 
X 

x# 

X# If a delay was asked for run the command later. 

X# 

if($delay_timene "" ) { 



X $me = $0; 

X $me .= " —verbose" if Sverbose; 

X $me .= " --debug" if $debug; 

X $me .= " Ssystem $safe_remote"; 

X $me .= " Ssafejocal" if Sexplicit; 

X Sat = "at Sdelayjime"; 

X print(STDERR "At Sdelayjime the following command will be run:\n"); 

X print(STDERR " Sme\n"); 

X if($debug){ 



X ' ' print(STDERR "Skipping command in debug modeAn"); 

X exit(0); 

X } 

X open(CMD, "|$at") || die("Could not ain command (Sat). $!\n"); 

X print(CMD $me); 

X close(CMD); 

X exit(O); 

X) 

X 

x# 

X# Build the batch ftp command. 

X# 

XSuser = (getpwuid($<))[0]; # safe when mn from "at". 
XSlocalhost = hostname'; chop($localhost); 
if($localhost !~A./) { 
X # 

X # If the host name does not have '.' notation try to 

X # get an alias. We then hope it is in domain name notation. 

X # 

X @fullhost = gethostbyname($Iocalhost); 

X Slocalhost = $fullhost[l] if $fiillhost[l] ne ""; 

X} 

XStempfite = 

X" "5 ^P®*^ Ssystem 

X Co user anonymous ${zero}4$user@$localhost 
X i bin 

X H= get $safe_remote $safe_local 

X bye 

X"; 

X 

x# jr: 

X# Run^e batch ftp command. 

X# 5 

print(STBERR "Running command ($cmd).\n") if Sverbose; 

open(CNflD, "|$cmd") || die("Could not start command ($cmd). $!\n"); 

print CMD Stemplate; 

close(CMD); 

X 

X 

X# Note whether or not the local file was obtained. 
X# 

if(-f$local_file){ 

X print("Obtained \"$local_file\" from $system.\n"); 

X} else { 

X $pwd='pwd'; 

X chop($pwd); 

X @time = localtime($time); 

X Snext = sprintf("%2d:%02d", $time[2], $time[l]); 

X 

X $sep = "\t\\\n\t "; 



X ' $cmd = "$0";- 



X ■ $cmd .= "$sep--at$next";«p 

X $cmd .= "$sep$system"; 

X $cmd .= "$sep$safe_remote"; 

X $cmd .= "SsepSsafeJocal" if Sexplicit; 

X 

X print(" 



Unable to obtained \"$local_file\" from $system. 
To try again the following command might be used: 
X 

cd $pwd; 
X$cmd 

X"); 
X} 

END_OF_FILE 

if test 5666 -ne 'wc -c <'ftpget.pr' ; then 

echo shar: \"'ftpget.pr\" unpacked with wrong size! 

fi 

chmod +x 'ftpget.pl' 
# end of 'ftpget.pl' 
fi 

if test -flliplist.pl' -a "${ 1 }" != "-c" ; then 

echo sfi: Will not clobber existing file \"'ftplist.pl'\" 
else I't 

echo shWi Extracting \"'ftplist.pl'\" \(1 543 characters\) 
sed "s/^r >'ftplist.pr «'END_OF_FILE' 
X#!/binJfBrl 

X '-J 

xm#mMmmmM#mmmmmmmmmmmmm#mmmmmm 
x# If 

X# Cop^ght 1993 Scott Bolte (scott@craycos.com) 

X# g 

X# t^ave this copyright alone. But feel free to do with the script 
X# M you please. Sending me enhancements would be appreciated. 

X# 

X# If you feel like pretending this is shareware, and want to 
X# send some money my way, feel free. I promise not to object. 
X# 

X# Summary of ftplist: 
X# 

X# Run ftpls on a bunch of systems. The results are put in files 

X# V whose names map to the system/directory pair. Older copies are 
X# renamed before the new edition is obtained. 

X# 

X# The expectation is that additional scripts will be run after 

X# this one. They will compare the old and new listings to note 

X# changes. 
X# " 
X# History: 



X# - 1993-.06.28' Initial implementation. 
X# 

X# Examples: 

X# 

X# ftplist 
X# 

X 

X%set = ( 

X "agate.berkeley.edu", "pub/3 86BSD/386bsd-0.1/unofficial", 

X "bsd.coe.montana.edu", "pub/patch-kit", 

X "hrd769.brooks.af.mil", "pub/FAQ", 

X "prep.ai.mit.edu", "pub/gnu", 

X ); 

X 

foreach $system (sort(keys(%set))) { 

X $file= "$system:$set{$system}"; 

X $file=~s,/,_,g; 

X Sold = "Sfile.OLD"; 

X if(-f$file){ 

X $error - "Could not rename \"$file\" to V'SoldV. $!\n"; 

X p $error .= "New listing of $set{$system} will not be obtained.Vn"; 

X CO rename($file, Sold) || (wam($error), next); 

X 5 } 

X ■§ $cmd = "ftpls Ssystem $set{ Ssystem} > $file" ; 

X ^'U system($cmd) && die("Could not run command ($cmd). $!\n"); 

X} S 
END_(^_FILE 

if test 1.5^3 -ne 'wc -c <'ftplist.pr'; then 

echogsiiar: \"'ftplist.pr\" unpacked with wrong size! 
fi k 
# end oOftplist.pl' 
fi 

if test Apls.pl' -a "${!}" != "-c" ; then 
echo sKar: Will not clobber existing file \" 'ftpls. pr\" 
else 

echo shar: Extracting \"'ftpls.pn" \(1853 characters\) 
sed "s/'^X//" >'ftpls.pr «'END_OF_FILE' 
X#!/bin/perl 
X 

Xn II 1 1 n ti II II ti II nil II II n ft ii a it tl U ll ini Utt II li it H li it It tili.il.li.ll i iAidilllt IHHUIJlJlJi HJiU il 11 fi fl II If II miJi H it i 
TTiTtrtriTittriTfrTt^^ 

x# 

X# Copyright 1993 Scott Bolte (scott@craycos.com) 
X# 

X# Leave this copyright alone. But feel free to do with the script 

X# as you please. Sending me enhancements would be appreciated. 
X# 

X# If you feel like pretending this is shareware, and want to 

X# send some money my way, feel free, I promise not to object. 
X# 



X# Summary of ftpls: 

X# 

X# Do a Is in a specific directory on a remote ftp system. 

X# Anonymous ftp is used. 

X# 

X# History: 

X# 

X# 1993.06.28 Initial implementation. 
X# 

X# Examples: 

X# 

X# ftpls remote_system remote_dir 
X# 

X 

X$cmd = "ftp -n"; # change "ftp -n" to "cat -n" for testing. 
X$zero= $0; 
X$zero =~ s,.*/„; 
X 

x# 

X# Verfi§ the arguments 

X# 

if($#AfiGV!=l){ 

X ^ print(STDERR "Usage: $zero system remote_dir\n"); 
X exit(l); 

X} m 
X J 

XSsystem = $ARGV[0]; 
X$remlfe dir = $ARGV[1]; 

X L= //////////////////////////////////////////// //////////// 
x# S / 

X# BuiiS the batch ftp command. 

X# 

X$user = (getpwuid($<))[0]; # safe when run from "at". 
X$localhost = 'hostname'; chop($localhost)f 
if($localhost !~A./) { 
X # 

X #Ifthe host name does not have '.'notation try to 

X # get an alias. We then hope it is in domain name notation. 

X # 

X @fullhost = gethostbyname($localhost); 

X Slocalhost = $fiillhost[l] if $fiillhost[l] ne ""; 

X} 

X$template = 

X" open Ssystem 

X user anonymous ${zero}4$user@$localhost 

X bin 

X cd $remote_dir 



X . ' -ls-1 • 
X bye 

X"; 
X 

x# 

X# Run the batch ftp command. 

X# 

open(CMD, "|$cmd") || die("Could not start command ($cmd). $!\n"); 

print CMD Stemplate; 

close(CMD); 

X 

exit(O); 

END_OF_FILE 

if test 1853 -ne ^wc -c <'ftpls.pr ; then 

echo shar: \"'ftpls.pr\" unpacked with wrong size! 

fi 

chmod +x 'ftpls.pr 
# end of 'ftpls.pl' 
fi 

if test -f ftpmget.pl' -a "${1}" != "-c" ; then 

echo shar: Will not clobber existing file \"'ftpmget.pr\" 
else i:rt 

echo shai: Extracting \"*ftpmget.pr\" \(7128 charactersV) 
sed "sfWr >'ftpmget.pl' «'END_OF_FILF 
X#!/bi#perl 

X ?f 

xmmmm#mMMmmmmmmmmmm#mMM#mmmmmmmm 
x# 

X# Copright 1993 Scott Bolte (scott@craycos.com) 

X# fy 

X# Q Leave this copyright alone. But feel free to do with the script 
X# as you please. Sending me enhancements would be appreciated. 

X# .5 

X# '""i If you feel like pretending this is shareware, and want to 
X# send some money my way, feel free. I promise not to object. 

X# 

X# Summary of ftpmget: 

X# 

X# Obtain a set of files via ftp from a remote system. Anonymous 

X# ftp is used. Can be asked to delay the command until a later 

X# time. Such a request will result in "at" being used. 

X# 

X# History: 
X# 

X# 1993.06.14 Initial implementation. 

X# 

X# 1993.06.15 Changed so that if a file contains white space 

X# it is obtained with get instead of mget. 

X# 



X# " 1 993.06. 30 Added --at option to allow delayed operation. 
X# 

X# Examples: 
X# 

X# ftpmget hrd769 .brooks.af.mil pub/FAQ FAQ_07 FAQ_09 
X# 

X# cd ~/ftp/hrd769. brooks, af. mil 

X# ftpmget - pub/FAQ FAQ_07 FAQ_09 

X# 

X# ftpmget hrd769.brooks.af.mil pub/FAQ - « EndOfList 

X# FAQ_07 

X# FAQ_09 

X# EndOfList 

X# 

V,)/ ti li It }{ ti tin II It (i it II ii li it t{ (I It {{ ti li u II u n a it ii l i ti ii ii ii II ii ti ii it luiii }i n lut H ti ii u uji n iiJt nM4JJiM44.ii ii i i n n nji n n.ti a it.tt n 
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X 

X$zero= $0; 

X$zero=~s,.*/„; 

X 

sub usage { 
X 

X print «EOS; 

Usage: ^Hero [options] system remote dir filel [... fileN] 

X or 

X $?|ro [options] system remote_dir - 

X ~ f~ Stop command line processing. 

X -a ot'~at time At the given time, which should be in hh:mm format, 

X run the $0 command. 

X -do£ —debug Do not run the actual ftp command, use cat instead. 

X -V Of; -verbose Enable the verbose status message. 

X -? Q^-h or —help Print this usage statem'ent. 

X U 

X If thf system is "-" try to determine the remote system from 

X the btirrent path. 

X 

X If a "-" is given instead of a list of files the list is read 

X from standard input. 

XEOS 

X} 
X 

xmmm#mmmmiffmmi iii iiii iii i mm mmmmmmmmimmm^^ 
x# 

X# Set the default values. 

X# 

X 

XSverbose =0; 
XSdebug = 0; 

X$cmd = "ftp -n"; # change "ftp -n" to "cat -n" for testing. 
XStime = time: # Get the time so we can recreate an "at" 



X " ' # command if need be. 

X$pwd ='/bin/pwd'; chop($pwd); 

X 

Y H fl li a ff II ff fl ff H ilMMiiiWifiiMiiili i iHHiiiifiiMiiiiM 

jTSdrtrirTrrrrrTrTrrrtrT^ 

■x# 

X# Process the command line. 

X# 
X 

while ($ARGV[0] =~ /^-./) { 

X $_= shift; 

X if (/^--$/) { 

X last; 

X } 

X 

X if(/^-&$/\\/'^-at$/){ 

X ^ $delay_time = shift; 

X if ( $delay_time !~ nd\d?:\d\d$/ ) { 

X print(STDERR 

X "Bad time specification \"$delay_time\".\n"); 

X &usage(); 
X exit(l); 

X C } 
X ffl next; 

X 5 } 

X ^ if(/M$/|| A^--debug$/) { 
X $debug++; 
X $cmd = "cat -n"; 

X next; 
X } 

X M if (/^-v$/ II /^--verbose$/) { 

X ry $verbose-Hr; 

X O next; 
X ^ } 

X :^ 

X ""^ if(/M?$/||/^-h$/||/^--help$/){ 

X &usageO; J 

X exit(O); 
X } 

X print "I don't recognize this switch: $_\n"; 

X &usage(); 

X exit(l); 

X} 

X 

XJJ.JJ.M H ii II li a H II It till ll.il (I H tl II li H U.HJUI U iiJtJlJiJiJl.llJIJl it a ll tl it it HM.M.MMlLllJ-lMMJJ.M.MUMJJ.MMMM.tl tl H ii it II ii li il li II it if // fl II H 
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X# 



X# Verify the positional arguments 
X# 

if($#ARGV<2) { 
X &usage(); 
X exit(l); 



X} • 

X 

XSsystem = $ARGV[0]; 
X$remote_dir = $ARGV[1]; 
X 

X.U U-jtU-U llU4i U4l 1144 IIU41 U4l lUi llU4t U4! INf N-tf //J/ // 1( H il if II U II li it il ti li ii it ll.iUl.li iill iJJiJi llJt iUl II il.tl ItJl II ii.ll llJl iUl II il il lUt iUl li 
######################## 

X# 

X# If the system spec was "-" try to figure out where we are. From that 
X# we might be able to construct a default host. 
X# ' 

if($systemeq "-") { 
X Ssystem = '/bin/pwd'; 

X $system =~ sAn//; 

X $original= $ system; 

X Ssystem =~s,^*/ftp/„; 

X Ssystem =~s,/.*$„; 

X die("Could not determine system given path \"$originai\".\n") 

X if Ssystem eq ""; 

X print(STDERR "Derived system is \"$system\" .\n") if $verbose; 

X} 

X 

'\7'.iIMM U-U il II ttJi tl tm ii li II li tl II U ii // U ll ll IIMMM-UMM.JlJ-LJl-U4tJ-L4iUJ4U-Ul.l-Uti-U.JiM.iI IlJi UUII It II H 1/ It U li 11 UM.JiM.JJ^4i tI4t // 14 iS 14 li H li ii 

X It TTtTjT f t I I ti lt 7 I niTTtitil it i rTtl l It IT ft t lTl l l tl ft ft it IT If It tt tf ft t lT TlTllTTT TTTnT t lT XX 7 7 7 1 Iff / 111111 tl it IT TTTI TTT Tlt tfTT i t t tlT tl tl IT I t T lTT fT TtTll/ 1 1 it it 

j\^tt Tl it It t:PTtin ft tl ft tt ft tl Tl If 1111 tt II tl It ft It tl trrf ft it It Trft trit ft ti it tt tt ft ti tt ft tt it it u it trtt tt ii tt it ft it it tt if it it ft tt it ti tt tt trit ttn it rrri irtt tt it n 

x# 5 

X# Get the list of requested files. Either take the files fi"om 

X# K the command line or fi-om stdin. 

x# ill 

if { $AlfeV[2] ne ) { 

X ^ for( $argc = 2; $argc <= $#ARGV; $argc++) { 
X ^ $file= $ARGV[$argc]; 

X L push(@files, $file); 

X fu ) 
X} else:^ 

X M while(<STDrN>) { 

X ^ chop; 

X $file= $_; 

X $file =~ sMs+Z/; # leading white space 

X $file =~ sAs+$//; # trailing white space 

X $file =~ s/'^'i *)"$/$!/; # Remove enclosing quotes 

X push(@files, Sfile); 

X } 

X} 

X 

X# * 1 

X# Make spaces safe for all mankind. N. Armstrong. 

X# 

foreach Sfile (@files) { 

X nextif Sfile eq ""; # skip empty names 

X Sfile =~ s/(.*)/"$17 if Sfile =~ As/; # add quotes if need be. 

X push(@tmp, Sfile); 

X} 



Q 



X@files = (^tmp; ' 



undef @tmp; 
X 

X# 

X# If a delay was asked for run the command later. 

x# 

X 

if ( $delay_time ne ) { 
X $me = $0; 

X $me .= " —verbose" if Sverbose; 

X $me .= " -debug" if $debug; 

X $me .= " Ssystem $remote_dir - « End_Of_List\n"; 

X foreach $file (@files) { 

X $me .= "\t$file\n"; 

X } 

X $me .= "End_Of_List\n"; 

X 

X $at = "at Sdelayjime"; 

X 

X print(STDERR "At Sdelay time the following command will be run:\n"); 

X print(STDERR " $me\n"); 

X g if($debug){ 

X S print(STDERR "Skipping command in debug mode.\n"); 

X S exit(O); 

X m } 

X i=j open(CMD, "|$at") || die("Could not run command (Sat). $!\n"); 
X print(CMD $me); 

X close(CMD); 

X L exit(O); 



X} n: 

X fa 

x#mmmmmm mfmm mmmmm mmm mmm# mmii i m^^ 
x# -J 

X# '-i Build the batch ftp command. 

X# 
X 

X$user = (getpwuid($<))[0]; # safe when run from "at". 

XSlocalhost = ' hostname' ; 

X chop($localhost); 

if($localhost !~A./) { 

X # 

X # If the host name does not have '.' notation try to 

X # get an alias. We then hope it is in domain name notation. 

X # 

X @fullhost = gethostbyname($localhost); 

X Slocalhost = $fullhost[l] if $fullhost[l] ne ""; 

X} 

XStemplate = 

X" open Ssystem 



X user anonymous ${zero}4$user@$localhost 

X bin 

X prompt 

X cd $remote_dir 

X"; 

foreach $file (@files) { 

X if($file==-As/) { 

X push(@space_files, $file); 

X next; 

X } 

X if ( length($line) + length($file) + 1 > 75) { 

X Stemplate .= sprintf("$line\n"); 

X $line=""; 
X } 

X $line=" mget"if$lineeq""; 

X Sline .= " $file"; 

X} 

XStemplate .= "$line\n"; 

foreach $file (@space_files) { 

X Stemplate-" . get$file\n"; 

X} 

X$tem|fete .= "$bye\n"; 

X ^5 

x# I 

X# il Run the batch ftp command. 

x# b ' 
X 

open(CMD, "|$cmd") || die("Could not start command ($cmd). $!\n"); 

print CMD Stemplate; 

close(diyiD); 

X ^ 

x# Z 

X# Report whether or not the files were obtained. 

X# 
X 

print("\nReport for file transfers fi-om Ssystem.\n"); 
print(" Remote directory \"$remote_dir\".\n"); 
print(" Local directory \"$pwd\".\n"); 
foreach Sfile (@files) { 
X if ( -f Sfile ){ 

X print(" Obtained \"SfileV'.\n"); 

X next; 
X } 
X 

X if($file=~/'^".*"$/) { 

X Sfile =~s/^"(. *)"$/$!/; 

X if (-f Sfile ){ 

X print(" Obtained \"$file\".\n"); 



X ' - . , next; 

X } 
X } 

X push(@again, $file); 

X} 

X 

X 41 41 4 14 14 14 141 41 j-t 41.11 1 1 lijj iiji ujjiijjjidiJiM-U-U-u II It ft n II H4iJt.ii 11 it ujj.mjj.il it // // u ii n n n 11 n a iiMdiMMJj.it ti u 11 u a it a ii n n a n ii n it n it 
II 1} H ! I If fl J J TTTT H if TTTTTTTT 1 1 1111 lijTil ll II TT It IJTT II IrrT If tl iiuitfiiiTtTT '^ t it tt tt i t it -tT-rr 'tT'tr 'rr 'TT'TT tt tl tt it I I t I it TtTT It ft it It Ji t tTTtf ^" ' ' ' ' Z£ ZT 

X# 

X# If there was a problem getting all the files print out a command 

X# that can try agmn later. 

X# 

X 

if($#again>=$[) { 

X @time = localtime($time); 

X $next = sprintf("%2d:%02d", $time[2], $time[l]); 

X 

X print «EOS; 

X 

Unable to obtained some files fi"om Ssystem. 

To try again the following command might be used: 

X 

cd $pwC= 

X$0 --aibSnext Ssystem $remote_dir - « End_Of_List 
XEOS f 

X ^ 

X ;^ foreach $file (@again) { 

X priht(" $file\n"); 

X } 

X J print("End_Of_List\n"); 

X} H 

END_aB_FILE 

if test 7p8 -ne Vc -c <'ftpmget.pl"; then 

echo^ar: \"'ftpmget.pA" unpacked with wrong size! 

fi :f 

chmod +k 'ftpmget.pl' 
# end of 'ftpmget.pl' 
fi 

echo shar: End of shell archive. 
exitO 



Scott Bolte scott@craycos.com +1 719 540 4186 

Cray Computer Corporation, 1110 Bayfield Drive, Colorado Springs, CO 80906 
As anyone here will tell you: I speak for myself 



*** On the Internet no one can hear you scream 



mi/hin/sh 

#Fromcs.utexas.edu!asuvax!gatech!news.byu.edu!efiniWarpjntelxom|newsFri 1 14:52:11 CDT 1992 
#Article: 10383 of comp.lang.perl 

#Path: cse.uta.edu!cs.utexas.edu!asuvax!gatech!news.byu.edu!effliWarp. Intel. com|new 
#From: merlyn@iWarp,inteLcom (Randal L. Schwartz) 
#Newsgroups: compJang.perl 

#Subject: Re: Perl FTP Interface (Need Example) (Do I Use expect.pl?) 
#Message-ID: <1992Mayl. 152710.22905@iWarp.intel.com> 
#Date: 1 May 92 15:27:10 GMT 

^References: <3604@ucru2,ucr.edu> <18604@ector.cs.purdue.edu> 
#Sender: news@iWarp, intel.com 

#Reply-To: merlyn@iWarp.intel.com (Randal L. Schwartz) 
#Organization: Stonehenge; netaccess via Intel, Beaverton, Oregon, USA 
#Lines: 277 

#In-Reply-To: spaf@cs.purdue.EDU (Gene Spafford) 

#Nntp-Posting-Host : v.iwarp . mtel. com 

# 

#In article <18604@ector.cs.purdue.edu> spaf@cs (Gene Spafford) writes: 
#1 Well, I guess now is as good a time as any. 

#\ 

#1 1 have put together a "ftp library package" that allows one to 

#1 construct fiin little ftp programs. It works well for me ~ IVe built 

#1 a mirkfring program and a couple of command-line ftp commands, 

#\ % 

#1 Noneif^f this is documented (I got really busy just when I finished 

#1 testii^this). Ill include the code for the library here, and 

#1 the cpie for my two example commands. One command lets you "Is" a 

#1 remop directory using ftp, and the other lets you get arbitrary 

#1 files, y either binary or ascii mode. I'm half done with one that 

#1 will let you fetch a remote tree, ala "rep -r" 

# 

#Well, H^, since I have a little script that does kinda the same thing 
#(the ongyou're "half done" with), I'll post it. Amazingly enough, 
#it *alsd|*uses chat2.pl :-). 

# ; ^ \ 

#It presumes a BSD-like remote host, and fails miserably on any unusual 
#forms of ftpd. Try it first to see, though. 

# This is a shell archive. Remove anything before this line, then unpack 

# it by saving it into a file and typing "sh file". To overwrite existing 

# files, type "sh file -c". You can also feed this as standard input via 

# unshar, or by typing "sh <file", e.g.. If this archive is complete, you 

# will see the following message at the end: 

# "End of shell archive." 

# Contents: ftpr 

# Wrapped by merlyn@iwarpv on Fri May 1 08:22:59 1992 
PATH=^in:/usr^in:/usr/ucb ; export PATH 

if test -f 'ftpr' -a "${ 1 }" !- "-c" ; then 

echo shar: Will not clobber existing file \"*ftpr'\" 
else 

echo shar: Extracting \"'ftpr'\" \(5037 characters\) 



sed "s/^X/r >'ftpr'''<^'END_OF_FILE' 

X#!/usr^in/perl 

X 

Xm ftpr, last update 91/08/16 

X## usage: ftpr [-a] [-d] [-t timeout] [-n] hostname topdir yes-regex except-regex 

X## topdir may be whitespace-separated list of topdirs 

X## yes-regex defaults to . (meaning everything) 

X## except-regex defaults to ' ' (meaning no exceptions) 

X 

Xpush(@INC, 71ocal/merlyn/lib/perl'); 
X 

Xrequire 'chat2.pr; 
X 

X$| = 1; # hot much output, but we like to see it as it happens 

XStimeout = 60; 

XSdasha = ""; 

XSnflag = 0; 

XShost = "localhost"; 

X$topdir="."; 

X$yesregex= 

XSnoregex = " 

X$user =5="anonymous"; 

X$pass §'merlyn@iwarp.intel.com'; 



last unless $ARGV[0] =~ M; 
$_ = shift; 

$trace++, redo if /^-d/; # debug mode 
Stimeout = $1, redo if /M(\d+)/; 
Stimeout = shift, redo if /^-t/; 
$dasha="-a", redoif/'^-a/; 
$nflag++, redo if/^-n/; 
die "bad flag: $_"; 



XShost = shift if @ARGV; 
XStopdir = shift if @ ARGV; 
XSyesregex = shift if @ARGV; 
XSnoregex = shift if @ ARGV; 
X 

Xdie "extra args: @ARGV" if @ARGV; 
X 

X($Control = &chat'open_port($host,21)) || die "open control: $!"; 

Xdie "expected 2dd for initial banner, got $_" 

X unless ($_ = &clisten($timeout)) =~ /^2\d\d/; 

X&ctalk("user $user\n"); 

X$_ = &clisten($timeout); 

Xunless (/^2\d\d/) { # might be logged in already: 

X die "expected 3dd for password query, got $ " 

X unless /^3\d\d/; 



X .n 

x{ i 

X ry 

X 1=^ 

X ui 

X 

X ^ 

X f=i 

X il 

X} i 

X "v 



X &ctalk(;"pass'$*pass\n"); 

X die "expected 2dd for logged in, got $_" 

X unless ($_ = &clisten($timeout)) =~ /^2\d\d/; 



X} 

X## all set up for a conversation 
X 

X@list = spIit(As+/,$topdir); 
Xwhile ($dir = shift list) { 



X nextif$seen{$dir}-H-; 

X print "listing $dir\n"; 

X for (&list($dir)) ( 

X (warn "can't parse $_ in $dir"), next 

X unless ($tag,$file) = /%).*\s(\S+)\s*$/; 

X push(@list, "$dir/$file") if 

X ($tag eq 'd') && ($file !~ 

X if( (Stag eq '-') && 

X C' $dir/$file" =~ /$yesregex/o) && 

X ("$dir/$file" !~/$noregex/o)&& 

X (! -e "$dir/$file") 

X ){■ 

X _ print "fetching $dir/$file...\n"; 

X ^3 &get("$dir/$file","$dir/$file") unless Snflag; 

X 1 } 

X i ) 



X} m 
X >^ 
X## shiMown 
X&ctallc^^quit\n"); 
X&clisten(5); # for trace 
X&chati(3ose($Control); 
Xexit(Op 

X u • 
Xsub ctSc { 



X Zi local($text) = @_; 
X ' print "{$text}" if Strace; 
X &chat'print($Control,$text); 

X} 
X 

Xsub clisten { 

X local($secs) = @_; 

X local($retum,$tmp); 
X while (1) { 

X $tmp = &chat'expect($Control, $secs, '(.*)\r?\n', '"$l\n*"); 

X print $tmp if Strace; 

X $retum .= $tmp; 

X return Sreturn if !length($tmp) || $tmp =~ Md\d\d /; 

X } 

X} I 

X • , . 



Xsub dopen { 



X local(r); ^• 
X 

X local(@ret) = fcchat'openJistenO; 

X &ctalk:("port " . 

X join(",", @ret[0, 1,2,3], int($ret[4]/256), $ret[4]%256) . 

X "\n"); 

X die "expected 2dd for data open, got $_" 

X unless ($_ = &clisten($timeout)) =~ /^2\d\d/; 

X $Data = $ret[5]; 

X} 
X 

X«'END_NOT_USED'; 
Xsub dtalk { 

X local($text) = @J, 

X print "{D:$text}" if $trace; 

X &chat'print($Data,$text); 

X} 

XEND_NOT_USED 
X 

Xsub dlisten { 

X local($secs,$forceretum) = @j 

X 9 local($return,$tmp); 
X ^ while (1) { 

X H $tmp = &chat'expect($Data, $secs, 

X S '(.|\n)+', '$&', 

X Ll TIMEOUT, , 

X S EOF, 'undef); 

X ^ if (defined $tmp) { 

X print "[D:$tmp]" if $trace > 1; 

X $retum .= $tmp; 

X return $retum unless (! Sforceretum) && (length $tmp); 

X F. # if timeout, return what you have 

X } else { # eof 

X 5 return $retum; 

X ' # maybe undef 

X } 

X } 

X} 

X 

Xsub dclose { 

X &chat'close($Data); 

X} 
X 

X«'END_NOT_USED'; 
Xsub nlst { 

X local($dir) = @_; 

X local(@files); 
X local($_,$tmp); 
X 

X &dopen(); 



X &ctalkC'-nlst-$tlasha $dir/.\n"); 

X die "expected Idd for nlst, got $_" 

X unless ($_ - &clisten($timeout)) =~ /^l\d\d/; 

X $_=""; 

X while (1) { 

X $tmp = &dlisten($timeout); 

X last unless defined $tmp; 

X ' $_ •= $tmp; 

X } 

X @files = sort grep(!n.\.?$/, split(Ar?\n/)) 

X unless /^Is: /; 

X die "expected 2dd for nlst complete, got $ " 

X unless ($_ = &clisten($timeout)) =~ /'^2\d\d/; 

X &dclose(); 

X @files; 

X} 

XEND_NOT_USED 
X 

Xsub list { 

X local($dir) = @_; 

X local(@files); 
X local($_,$tmp); 

X a 

X -i- &dopen(); 

X m &ctalk("list $dasha $dir/.\n"); 

X fU die "expected Idd for list, got $ " 

X H unless ($_ = &clisten($timeout)) =~ /% *\n)* 1/; 

X ^ $_=""; 

X 'j^ while (1){ 

X $tmp = &dlisten($timeout); 

X last unless defined $tmp; 

X c $_ .= $tmp; 

X H } 

X C; @files = grep(MS[rwx\-]{8}/, spHt(Ar?\n/)); 

X die "expected 2dd for list complete, got $ " 

X unless ($_ = &clisten($timeout)) =~ /^2\d\d/; 

X &dcloseO; 

X ©files; 

X} 

X 

Xsub get { 

X local($from, $to) = @_; 

X local($todir,*OUT); 
X 

X (Stodir = "./$to") =~ s#(.*)/.*#$l#; 

X system "mkdir -p Stodir" unless -d Stodir; 

X (warn "cannot create Sto.TMP: S!"), return 

X unless open(OUT, ">$to.TMP"); 

X select((select(OUT),$|=l)[0]); 

X &ctalk("type i\n"); 



X die "expected 2dd for type i ok, got $_" 

X unless ($_ = &clisten($timeout)) =~ /'^2\d\d/; 

X &dopenO; 

X &ctalk("retr $from\n"); 

X unless (($_ = &clisten($timeout)) =~ /^^iXdXd/) { 

X warn "expected Idd for retr, got $_"; 

X close(OUT); 

X unlink("$to.TMP"); 

X «fedcloseO; 

X return; 

X } 

X {, 

X $_ = &dlisten($timeout, 1); 

X last unless defined $_; 

X print OUT; 

X redo; 

X } . 

X close(OUT); 

X unless (($_ = &clisten($timeout)) =~ /''2\d\d/) { 

X warn "expected 2dd for retr complete, got $_"; 

X \ close(OUT); 

X O unlink("$to.TMP"); 

X ® &dcloseO; 

X « return; 

X % } 

X ;i &dcloseO; 

X ill rename("$to.TMP","$to") || warn "cannot rename $to.TMP to $to: $ 



X} y 
END_OF_FILE 

if test 5d37 -ne ^wc -c <'ftpr'\' then 

echo%ar: \"'ftpr'\" unpacked with wrong size! 

fi 2 

chmod fbx 'fl:pr' 
# end otitpr' 
fi 

echo shar: End of shell archive. 
exitO 

/=Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ====— \ 
I on contract to Intel's iWarp project, Beaverton, Oregon, USA, Sol III | 
I merlyn@iwarp.intel.com ...!any-MX-mailer-like-uunet!iwarp.intel.com!merlyn | 
\=Cute Quote; "Intel: putting the 'backward' in 'backward compatible'... "==/ 
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Status of This Memo 

This memo describes an Internet background file transfer service that 
is built upon the third-party transfer model of FTP. No new 
protocols are involved. The purpose of this memo is to stimulate 

Q discussion on new Internet service modes. Distribution of this memo 

^ is unlimited. 

1, Introduction 

For a variety of reasons, file transfer in the Internet has generally 
^4 been implemented as an interactive or "foreground" service. That is, 

a user runs the appropriate local FTP user interface program as an 
M interactive command and requests a file transfer to occur in real 
3: time. If the transfer should fail to complete for any reason, the 
^ user must reissue the transfer request. Foreground file transfer is 
^ relatively simple to implement - no subtleties of queuing or stable 
'ti storage and in the early days of networking it provided excellent 

service, because the Intemet/ARP ANET was lightly loaded and 

reasonably reliable. 

More recently, the Internet has become increasingly subject to 
congestion and long delays, particularly during times of peak usage. 
In addition, as more of the world becomes interconnected, planned and 
unplanned outages of hosts, gateways, and networks sometimes make it 
difficult for users to successMy transfer files in foreground. 

Performing file transfer asynchronously (i.e., in "background"), 
provides a solution to some of these problems, by eliminating the 
requirement for a human user to be directly involved at the time that 
a file transfer takes place. A background file transfer service 



requires two components: a user interface program to collect the 
parameters describing the required transfer(s), and a file transfer 
control (FTC) daemon to carry them out. 
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Background file transfer has a number of potential advantages for a 
user: 

o No Waiting 

The user can request a large transfer and ignore it until a 
notification message arrives through some common channel (e.g., 
electronic mail). 

o End-to-end Reliability 

The FTC daemon can try a transfer repeatedly until it either 
succeeds or fails permanently. This provides reliable end-to- 
end delivery of a file, in spite of the source or destination 
host being down or poor Internet connectivity during some time 
period. 

o Multiple File Delivery 

In order for background file transfer to be accepted in the 
Internet, it may have to include some "value-added" services. 
One such service would be an implementation of a multiple file 
transfer capability for all hosts. Such a facility is suggested 
in RFC-959 (see the description of "NLST") and implemented in 
some User-FTP programs. 

o Deferred Delivery 

The user may wish to defer a large transfer until an off-peak 
period. This may become important when parts of the Internet 
adopt accounting and traffic-based cost-recovery mechanisms. 

There is a serious human-engineering problem with background file 
transfer: if the user makes a mistake in entering parameters, this 
mistake may not become apparent until much later. This can be the 
cause of severe user finstration. To avoid this problem, the user 
interface program ought to verify the correctness of as many of the 
parameters as possible when they are entered. Of course, such 
foreground verification of parameters is not possible if the remote 
host to which the parameters apply is currently unreachable. 



To explore the usefulness of background file transfer in the present 
Internet, we have implemented a file-mover service which we call the 
Background File Transfer Program or BFTP, 

Section 2 describes BFTP and Section 3 presents our experience and 
conclusions. The appendices contain detailed information about the 
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user interface language for BFTP, a description of the program 
organization, and sample execution scripts. 

2. Background File Transfer Program 

2. 1 General Model 

In the present BFTP design, its user interface program and its FTC 
daemon program must execute on the same host, which we call the 
BFTP control host. 

Through the user interface program, a BFTP user will supply all of 
the parameters needed to transfer a file fi'om source host S to 
destination host D, where S and D may be different fi-om the BFTP 
control host. These parameters include: 

o S and D host names, 

o login names and passwords on S and D hosts, and 
0 S and D file names (and optionally, directories). 

The user may also specify a number of optional control parameters: 

* Source file disposition — Copy, move (i.e., copy and 
delete), or simply delete the source file. The default is 
copy. 

* Destination file operation - Create/Replace, append to, or 
create a unique destination file. The default is 
create/replace ("STOR"). 

* FTP Parameters — Explicitly set any of the FTP type, mode, 
or structure parameters at S and D hosts. 

* Multiple Transfers ~ Enable "wildcard" matching to perform 
multiple transfers. 

* Start Time — Set the time of day for the first attempt of 
the transfer. The default is "now" (i.e., make the first 



attempt as soon as the request has been queued for the FTC 
daemon). 



Finally, the user specifies a mailbox to which a completion 
notification message will be sent, and "submits" the request to 
the FTC daemon queue. The user can then exit the BFTP user 
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interface program. 

If the transfer should fail permanently, the FTC daemon will send 
a notification message to the user's mailbox. In the event of a 
temporary failure (e.g., a broken TCP connection), the FTC daemon 
will log the failure and retry the transfer after some timeout 
period. The retry cycles will be repeated until the transfer 
succeeds or until some maximum number of tries specified has been 
reached. In either case, a notification message^iU then be sent 
to the user's mailbox. 

The user can check on the progress of the transfer by reentering 
the BFTP user interface program, supplying a key that was defined 
with the request, and displaying the current status of the 
request. The user may then cancel the request or leave it in the 
queue. 

The BFTP program includes a server-Tebiet module, so it can be 
executed as a remotely-accessible service that can be reached via 
a Telnet connection to the BFTP well-known port (152). This 
allows a user on any Internet host to perform background file 
transfers without running BFTP locally, but instead opening a 
Telnet connection to port 152 on a BFTP service host. Of course, 
a user can also run the local BFTP user interface program directly 
on any host that supports it and for which the user has login 
privileges. 

The next section discusses how BFTP uses standard FTP servers to 
perform the transfers, while the following section covers the user 
interface of BFTP. 

2.2 File Transfer Mechanics for BFTP 

The BFTP makes use of the "third party" or "Server-Server" model 
incorporated in the Internet File Transfer Protocol [RFC-959]. 
Thus, the FTC daemon opens FTP control connections to the existing 
FTP servers on source host S and destination host D and instructs 
them to transfer the desired file(s) from S to D. The S and D 
hosts may be any two Internet hosts supporting FTP servers (but at 
least one of them must support the FTP "PASV" command). This 
approach allows the implementation of a background file transfer 



capability for the entire Internet at a very low cost. 

Figure 1 illustrates the BFTP model of operation. Note that the 
BFTP control host is not necessarily the same as S or D. Figure 2 
illustrates the FTP command interchange used in a typical Server- 
Server file transfer operation; this may be compared with the 
User-Server FTP scenario illustrated in Section 7 of RFC-959. 
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Since BFTP may be asked to transfer files between any two hosts in 
the Internet, it must support all the file types and transfer 
modes that are defined in RFC-959, not just a subset implemented 
by particular hosts. 

BFTP supports the transfer of a set of files in a single request, 
using the standard technique: 

(1) Send an NLST command to the source host S, specifying a 
pathname containing "wildcard" characters. The reply will 
contain a list of matching source file names. 

(2) Execute a separate transfer operation for each file in this 
list. The destination file name in each case is assumed to 
be the same as the source file name; this requires that these 
names be compatible with the naming conventions of D. 

It will typically be necessary to specify working directories for 
the transfers at S and D, so the file names will be simple, 
unstructured names on each system. 

This approach depends upon the wildcard matching capability of the 
source host S. A more general implementation would acquire a 
complete list of the file names fi*om the source host and do the 
matching in the FTC daemon, for example using a regular-expression 
matcher. Another useful extension would be a general pattern- 
matching file name transformation capability (e.g., like the one 
included in the 4.3BSD version of FTP) to generate appropriate 
destination pathnames for multiple requests. 
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Figure 1 ~ BFTP Model of Operation 
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Figure 2 — Server-Server File Transfer 
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BFTP currently utilizes the following Server-FTP commands [RFC- 

959]: USER, PASS, ACCT, PASV, PORT, RETR, STOR, STOU, CWD, NLST, 

MODE, STRU, TYPE, and QUIT. 

The FTC daemon attempts to work around FTP servers that fail to 
support certain commands. For example, if a server does not 
support the optional command "CWD", the FTC daemon will attempt to 
construct a complete path name using the source directory name and 
the source file name. However, it is necessary that at least one 
of the two hosts support the FTP passive (PASV) command. While 
many FTP server implementations support do this command, , some (in 
particular, the 4.2BSD FTP) do not. The PASV command was 
officially listed as being optional in RFC-959, 

2.3 Reliable Delivery 

The reliable delivery fimction of BFTP is analogous to reliable 
deUvery in a transport protocol like TCP. Both depend upon 
repeated delivery attempts until success is achieved, and in both 
cases the choice of the retry interval requires some care to 
balance overhead against unresponsiveness. 

Humans are impatient, but even their impatience has a limit. If 

the file cannot be transferred "soon", a human will turn to 

another project; typically, there is a tendency for the transfer 

to become less urgent the longer the wait. The FTC daemon of BFTP 

therefore starts each transfer request with a very short retry 

interval — e.g., 10 minutes ~ and then doubles this interval for 

successive retries, until a maximum interval ~ e.g., 4 hours ~ 

is reached. This is essentially the exponential backoff algorithm 

of the Ethernet, which is also used by transport protocols such as 

TCP, although BFTP and TCP have quite different rationales for the 

algorithm. 

We must also define the meaning of reliable transmission for a 
multiple-transfer request. For example, the set of files selected 
by wildcard characters in a pathname is not well defined; the set 
may change while the request is pending, as files are created a 
deleted. Furthermore, it is unreasonable to regard the entire 
multiple transfer as a single atomic operation. Suppose that 
transferring a set of files fails part way through; for an atomic 




operation, the files which had been successfully transferred would 
have to be deleted pending the next retry of the entire set. This 
would be ridiculously inefficient and may be impossible (since the 
communication path may be broken when it is time to issue the 
deletion requests). 
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BFTP addresses these issues in the following manner: 



* 



For a multiple file operation, the FTC daemon saves the file 
name list returned by the first successfixl NLST command in 
the request queue entry. This name list determines the set 
of source files for the transfer; there can be no later 
additions to the set. 

The FTC daemon maintains a transfer status pointer. On each 
retry cycle, it tries to transfer only those files that have 
not already been successfially transferred. 

The request is complete when all the individual file 
transfers have been successfiil, a permanent failure has 
occured, or when the retry limit is reached. 

The notification message to the user lists the status of each 
of the multiple files. 




2.4 BFTP User Interface 

The purpose of BFTP is to simplify the file transfer process and 
to place the burden of reliability on the BFTP control host. We 
have attempted to provide a "user fiiendly" command interface to 
BFTP, similar in flavor to the user interface of the TOPS-20 
operating system. This interface provides extensive prompting, 
defaulting, and help facilities for every command. 

For a list of all BFTP commands, the user may enter "?<Retum>*' at 
the main BFTP prompt ("BFTP>"). Entering "help<Retum>" and 
"explain<Retum>" will provide increasing levels of explanatory 
material. To obtain information on a particular command, "help 
<command name><Retum>" may be entered. The 'quit' or 'exit' 
command will exit fi"om BFTP. Command and subcommand names may be 
abbreviated to the shortest unique sequence for that context; 
alternatively, a partial name can be automatically completed by 
typing <Return>. 




The normal procedure for a BFTP user is to set up a set of 
parameters defining the desired transfer and then submit the 



request to the FTC daemon. To give the user the maximum 
flexibility, BFTP supports three modes of submission: 

o Background Operation 

To request a reliable background file transfer, the user will 
issue the BFTP 'submit' command to the FTC daemon. 
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o Foreground Verification, Background Operation 

The BFTP Verify' command may be used to ascertain that file 
transfer parameters are valid. It causes BFTP to connect to 
the FTP servers on both the source and the destination hosts 
(if possible), log into both, verify the FTP parameters, and 
verify that the specified source file is present. 

Once the 'verify' command has successfiiUy completed, the 
user can issue the 'submit' command to schedule the actual 
file transfer. 



o Foreground Operation 

The BFTP 'transfer' conmiand will perform the specified 
third-party transfer in foreground mode. This is illustrated 
by the dotted path bypassing the queue in Figure 1. 



The easiest way to set up the parameters is to issue the 'prompt' 
command, which will prompt the user for all of the basic 
parameters required for most transfers. Certain unusual 
parameters must be set with the 'set* command (see Appendix B for 
details). 

When entering any parameter, the following control characters may 
be used: 

? will display help text for the parameter, indicating its 

meaning, the choices, and the default, and then reprompt for 
the parameter. 

<ESC> will display the default value (or the last value set) for 
this parameter. The user can accept this default by entering 
<Return>, or else erase it with Control-W and enter a 
different value for the parameter, followed by <Retum> to 
accept the entered value. 

<Control-W> 

will erase the value typed or displayed for current 



parameter. 
<Return> 

will accept the value displayed for this parameter, and 
continue to the next parameter, if any. If the user has not 
typed a value or used <ESC> to display the default, <Retum> 
will display the default and then accept it. 
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It is important to provide a means for a user to obtain status 
information about an earlier request or even to cancel an earlier 
request. However, these fixnctions, especially cancellation, must 
be controlled by some user authentication. We did not want to 
build a user authentication database with each BFTP instance or 
require login to BFTP itself, and there is no Internet-wide user 
authentication mechanism. We adopted the following weak 
authentication mechanism as a compromise: 

* When the 'submit' command is issued, it prompts the user for 
a character string called a "keyword", which recorded with 
the request. 

* This keyword can be entered later as the argument to a 'find' 
command, which will display the status of all requests with 
matching keywords. 

* Similarly, the keyword may be used to cancel the 
corresponding request. 

If two different users happen to choose the same keywords, of 
course, this scheme will not protect each other's requests from 
accidental or malicious cancellation. However, a notification 
message will be sent at the time that a cancellation occurs. 

To make a series of similar requests, the user needs only to 
change the individual parameters that differ from the preceding 
request and then issue a new 'submit' command, for each request. 
There are commands for individually setting each of the parameters 
that 'prompt' sets - and 'time' - to provide a shortcut for BFTP 
experts. A simpler but lengthier procedure is to use the 'prompt' 
command to run through the current set of parameters, reentering 
the parameters that must change and using the sequence 
<ESC><return> to retain the previous value for each of the others. 
The same procedures may be used to correct a mistake made in 
entering a particular parameter.^ 

The current settings of all the BFTP parameters can be displayed 
at any time with the 'status' command, while the 'clear' command 
will return all parameters to their initial values. Finally, the 
'request' command allows the user to save the current set of 



parameters in a file or to restore the parameters from a 
previously-saved file. 

There is also a window-based BFTP user interface for use on a Sun 
Workstation, described in Appendix A. The complete list of BFTP 
commands is presented in Appendix B. 
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3. Experience and Conclusions 

BFTP has been available to users at ISI for some months. Users have 
reported a number of advantages of using BFTP: 

(a) Some users prefer the prompting style of BFTP to the user 
interface of the foreground FTP they normally use. 

(b) The BFTP "verify" command allows the user to verify that host 
names, passwords, and filenames are correct vdthout having to 
wait for the entire transfer to take place. 

(c) Since results are returned through the mail system, a transfer 
can occur without tying up a terminal line, a phone line, or 
even a window. 



BFTP must be able to communicate with a variety of Server-FTP 
implementations, and we have observed much variation in the commands 
supported, error handling, and the timing in these servers. Some of 
the problems we have encountered are: 

(1) Some systems (e.g., 4.2BSD) do not support the PASV command. 

(2) 4.2/3BSD systems return a non-standard response to the NLST 
command. Instead of returning a list of complete path-names, 
they use an ad hoc format consisting of a directory name 
followed by a list of files. 

(3) 4.2/3BSD systems may return a "permanent negative completion 
reply" (a 5xx FTP reply code) as a result of a communications 
failure such as a broken TCP connection. According to RFC-959, 
the appropriate response is a "transient negative completion 
reply" (a 4xx FTP reply code), which would inform the BFTP that 
the transfer should be retried. 

(4) A number of servers return badly formatted responses. An 
example of this is the 4.2/3BSD response to an NLST command for 
a non-existent file name: an error string which is not preceded 

by a numerical response code. 



To diagnose problems that do occur, we have found it very useful to 
have a complete record of the interchange between the FTC daemon and 
the two FTP servers. This record is saved and is currently always 
included in the notification message mailed to the user (see Appendix 
D for an example). As we get more experience v^th this program, some 
of the details of the transfer may be omitted fi"om this log. 
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The use of library routines shared between modules makes it 
relatively easy to implement additional user interface programs. We 
are currently experimenting with a window version of BFTP, the 
"bftptool", .which runs in the Sun View environment, and is described 
in Appendix A. Some additional inteifaces that might be useful are: 

o A command line interface for use in shell scripts and 
"Makefiles". 

o A more general library interface which would make it easy to 
invoke BFTP fi-om a variety of programs. 

o Additional fell-screen form based interfaces^ for example a tool 
running in X-Window system envu*onment. 

Lastly, BFTP would benefit from the resolution of the follov^ng open 
protocol issues: 

o There currently exist no provisions for Internet-wide user 
authentication. In the BFTP context, this means that passwords 
required for a file transfer must be present in BFTP request 
files. The security of these passwords is subject to the 
limitations of the file system security on the BFTP control 
host. Anonymous file transfer provides a partial solution, but 
a more general, long term solution is needed, 

0 Better mechanisms are needed to cope with the diversity of real 
file systems in the Internet. 

For example, an extension could be made to the FTP protocol to 
allow the daemon to learn the delimiter conventions of each host 
file system. This could allow a more flexible and powerfel 
muhiple-file facility in BFTP, This could include the 
automatic transfer of directory subtrees, for example. 

4. References 

[RFC-959] Postel, J., and J. Reynolds, "File Transfer Protocol 
(FTP)", RFC-959, USC/Informatioh Sciences Institute, 



October 1985. 
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Appendix A ~ BFTP Implementation Structure 

BFTP has been implemented on both a Sun workstation running Sun OS 
3.4 (based on 4.2BSD) and a VAX running 4.3BSD. The program modules 
are: the local user interface programs "bftp", the Internet server 
program "bftpd", and the FTC daemon "fts'\ BFTP makes use of the 
"at" command, a UNIX batch job facility, to submit requests and 
execute the daemon. An additional user interface program, the 
"bftptool", is available for Sun OS 3.4, and runs in the SunView 
environment. 

BFTP keeps its state in a set of control files: request files, 
command files, and message files. These files are stored in the home 
directory specified for the environment of the process running 
"bftp". If a user is running "bftp" directly, this will typically be 
the user's home directory. In the case where a user has made a 
Telnet connection to the well-known port 152 on a BFTP service host, 
5 "bftp" is started by "bftpd" (or "inetd", indirectly). As a result, 
ftl the control files will be owned by the user-id under which "inetd" 
M was started, normally "root", and stored in the top level directory 
Wl "/" . Note, however, that under BFTP all user files are written by , 
'"'i the FTP servers, which are presumed to enforce the operating systems' 
f access control conventions. Hence, BFTP does not constitute a system 
J" mtegrity exposure. 

2 A.1 User Interface Program 

\^ The BFTP user interface program "bftp" may be run directly via a 

UNIX shell Once the program has been started, the prompt "BFTP>" 
will appear and commands may be entered. These commands are 
described in detail in Appendix B. 

rfr A. 2 Tool-Style User Interface Program 



The-BFTP user interface program "bftptool" may be started fi-om a 
shell window in the SunView environment on a Sun workstation. The 
BFTP commands may be selected via the left mouse button. The 
various file transfer parameters appear in a form-style interface; 
defaults and multiple-choice style parameter values can be filled 
in via menus. An advantage of this form-style interface program 
is that it is possible to view all of the file transfer parameters 




simultaneously, providing the user with a sense for which 
parameter values might be mutually exclusive. 

Help information can be displayed in a text subwindow by 
positioning the on-screen mouse pointer over a command or a 
parameter, and clicking the center mouse button. (No standard 
mechanism for displaying help information is currently included 
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the SunView package.) 

The commands used in the "bftptool" are for the most part very 
similar to the commands described in Appendix B. Request 
submittal and the execution of the FTC daemon are identical for 
the "bftp" and the "bftptool" interface programs. 

A. 3 Internet Server 

The Internet server program "bftpd" can be invoked by opening a 
Telnet connection to a well-known port, and does not require 
login. The "bftpd" program runs under "inetd", the standard 
BSD4.X well-known port dispatcher. When a SYN arrives for the 
BFTP well-known port, "bftpd" opens the TCP connection and 
performs Telnet negotiations. It then passes control to the user 
interface "bftp" which allows the user to enter file transfer 
requests. 

A.4 BFTP Server Daemon 

The BFTP file transfer control daemon program is named "fts" (for 
"File Transfer Service"). This module contains code to actually 
cause a single file transfer operation using the FTP server-server 
model as shown in Figures 1 and 2. It is invoked with the command 
"fts <request-file>". The <request-file> contains the necessary 
parameters for the file transfer, in ASCII format, separated by 
linefeeds. Such a request file may be created by the user 
interface program, "bftp". 

As a byproduct of the development of BFTP, "fts" represents a 
server-server FTP driver that can be run independent of the "bftp" 
program. Parameters used in the file transfer are read from a 
request file, which is created and accessed via library routines 
which can be shared between modules. This could be used to 
perform FTP's under program control. 
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Appendix B: BFTP Command Summary 

B.l Special Editing Characters 

In the "bftp" program, the special editing characters for command 
words, subcommands, and parameter fields are as follows: 

<retum> Accept current command/field. 

<escape> Complete current command/field, or display default. 

<space> Complete and delimit current command. 

<delete> Erase last character. 

control-L Refi-esh screen. 

control-R Refi-esh line. 

control-U Erase line. 

control-W Erase current token. 

? List legal options. 

B.2 BFTP Commands 

The remainder of Appendix B consists of a list of the BFTP 
commands. Each command should be followed by a carriage-return. 
In the description of the syntax for each command, square brackets 
"[]" are used to indicate a ssubcommand, or a list of possible 
subcommands, which are separated by the "|" character. Angle 
brackets "o" are used to indicate a description of a parameter 
where the choices would be too numerous to list, for example 
'*<host name/number>", 

B.2.1 Clear Command 



Return all parameters to their default values, 
clear 

B.2. 2 Destination Commands 
Set the destination directory. 



ddir <directory name> 



Set the destination file name. 

dfile <file name> 
Set the destination host, user, and password. 

dhost <host name/number> <login> <password> 
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B,2.3 Explain Command 
Display a short explanation of how to use BFTP. 
explain 
B.2.4 Find Command 
Find and display a previous request, 
find 

BFTP will prompt for the request id, which is printed when the 

request is first submitted. An example of a request id is 

"bftp583 101774". BFTP also prompts for the request keyword, which 

was determined by the user when the request was first submitted. 

If no keyword was specified, a <CR> should be typed. If no 

request id is entered, BFTP will display all requests which 

contain a matching keyword. 

RequestED (optional): <bfl:p-request-id> 
RequestKeyword: <keyword> 

After BFTP has displayed a summary of a matching request, it asks 
whether the request is to be changed, or canceled. 

Do you wish to change this request? [yes | no] 
Do you wish to cancel this request? [yes | no] 

If the user indicates that the request is to be changed, BFTP will 
read in the parameters and cancel the existing request. At this 
point the user may make any desired changes and use the "submit" 
command to requeue the request. At this point a new request id 
will be assigned and displayed. 
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Although this may happen extremely rarely, if at all, it is 
possible that a system crash (or the interruption of the BFTP 
program) at a particularly inopportune moment may leave a request 
which is not queued. When the "find" command locates such a 
request, it displays the warning: 

Your request is NOT currently queued. 

If this happens, the request may be read in and resubmitted using 
the following procedure: 

Your request is NOT currently queued. 
Do you wish to change this request? yes 

(BFTP displays the parameters that have been read in.) 

Previous request canceled. 

Use the 'submit' command to submit a new request. 



B.2.5 Help Command 
Print local he}p information, 
help 

help <command> 
B.2.6 Quit Command 
Clear parameters and exit the BFTP program, 
quit 

B.2,7 Prompt Command 
Prompt for commonly-used parameters, 
prompt 
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The following are the parameters that BFTP prompts for: 

copy/move/delete: [copy | move | delete] 
ascii/ebcdic/image/local: 

[ascii|ebcdic] [nonprint|telnet|carriage-control] 

or 

[image] 

or 

[local] <byte size> 
(see "set type" for additional information) 

Source — 

Host: <host name/number> 
User: <login> 
Password: <password> 

Dir: <directory including a delimiter, e.g., 7" or ">"> 
(either an absolute path, or relative to the login) 

File: <file name> 




Destination — 

Host: <host name/number> 
User: <login> 
Password: <password> 
Dir: <directory> 
File: <file name> 



Once the prompting has been completed, the current values of all 
parameters will be displayed. Parameters not mentioned in the 
prompting will be initialized with default values, and may be 
changed via the "set" commands. 
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B.2,8 Request Commands 

The request commands enable the user to save a set of BFTP 
parameters in a "request-file" for fiiture use. Subcommands are 
provided to to list all available request-files, or to read, 
write, or delete a request-file. All request-files are stored in 
the user's home directory. Therefore, this facility is not 
available when the user is accessing BFTP by telneting to port 
152. 

Delete request file "bftp-save.name". 

request delete <name> 
List all bftp-save files, 
request list 

Read a request file in as the current request. 

request load <name> 

Save the current request in a file named "bftp-save.name". 

request store <name> 

B.2.9 Set Commands 

The "set" commands have complex subcommand structures and are used 
to set many of the less commonly used FTP parameters. The 
subcommands of "set" are as follows: 

Set the account for the source/destination login. 

set account [source | destination] <account string> 

Set to true to append to destination file. 

set append [true | false] 



The source file will be copied to the destination file name. 



set copy 



The source file will be deleted after the file has been moved 
copied. 

set delete 
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Set the mailbox to which the results will be returned. The 
mailbox should be in standard internet format, for example: 
"deschon@isi.edu". 

set mailbox <mailbox string> 
Set the FTP transfer mode. 

set mode [stream | block | compress] 
The source file will be deleted after it has been copied. 



set multiple [true | false] 



Set the port for the source/destination FTP connection. 

set port [source | destination] <port number> 
Set the FTP structure. 

set structure [file | record | page] 

Set the FTP type and format / byte size parameters. Note that a 
normal text file is usually "ascii", and a "binary" file is often 
the same as an "image" file. 

set type [ascii|ebcdic] [nonprint|telnet|carriage-control] 

or 

set type [image] 

or 

set type [local] <byte size> 

Set to true if the STOU command is to be used. If the STOU 
conunand is supported by the destination host, the file will be 
.stored into a file having a unique file name. 

set unique [true | false] 



set move 




Set to true to transfer muhiple files. 



Set to true to display fiill FTP conversations for "verify" and 
"transfer" commands. 



set verbose [true | false] 
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B.2.10 Source Commands 
Set the source directory. 

sdir <directory name> 
Set the source file name. 

sfile <file name> 
Set the source host, user, and password. 

shost <host name/number> <login> <password> 
B.2.11 Status Command 
Display the current parameter values. 

status 

B,2.12 Submit Command 
Submit the current request for background FTP. 
submit 

BFTP prompts for the following information: 

StartTime: <date and/or time> 
ReturnMailbox: <intemet mailbox> 
RequestKeyword: <made-up keyword> 

B.2.13 Time Command 

Set the start time, the starting retry interval, and the maximum 
number of tries. 

time <date and/or time> <minutes between tries> 
<maximum number of tries> 

B.2.14 Transfer Command 



Perform the current request in the foreground, 
transfer 
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B.2. 15 Verify Command 
Make tlie connections now to check parameters, 
verify 
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Appendix C Example BFTP User Script 

deschon.isi edu 1% telnet hobgobIin.isi.edu 152 
Trying 128.9.0 42 ... 
Connected to hobgoblin.isi.edu. 
Escape character is '^]' 

BFTP Server (hobgoblin.isi.edu) 

Background File Transfer: For help, type 7\ *help\ or 'explain*. 

BFTP> prompt 

Copy/Move/Delete: copy 

Source — 

Host: deschon.isi.edu 
if!' User: deschon 
m Password: 
ri; Dir: ./ 
H File: foo* 
111 

Destination ~ 

Host: venera.isi.edu 

U- User: deschon 

■ ?™ 

Password: 
y. Dir: ./temp/ 



StartTime: Tue Oct 6 10:14:43 1987 (interval) 60 (tries) 5 
RetumMatlbox. deschon@isi,edu 



File: foo* 



Request? a s s w o r d : 




<1 



BFTP> s et multiple true 
BFTP> status 

Request type: COPY 



Source — 

Host 'deschon.isi.edu' 
User* 'deschon' 
Pass SET 




Acct " 
Dir 7' 
File 'too*' 
Port. 21 

Destination ~ 

Host 'venera.isi.edu' 
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User 'deschon' 
Pass- SET 
Acci " 
Dir. ' /temp/' 
File Too^" 
Port: 21 

Structure: file. Mode: stream. Type: ascii, Format: nonprint 
Multiple matching: TRUE 

Return mailbox: 'deschon@isi.edu'. Password: SET 
Remaining tries: 5, Retry interval: 60 minutes 

Start after Tue Oct 6 10:14:43 1987. 

BFTP> submit 
Checking parameters. 

Request bftp560538880 submitted to run at 10:14 Oct 6. 

BFTP> quit 
bye 

Connection closed by foreign host. 
deschon.isi.edu 2% 
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Appendix D Sample BFTP Notification Message 

Received-Date: Tue, 6 Oct 87 10:15:52 PDT 
Date: Tue, 6 Oct 87 10:15:47 PDT 
From: root (Operator) 
Posted-Date Tue, 6 Oct 87 10:15:47 PDT 
To: deschon 

Subject: BFTP Results: bftp560538880 
Request bHp560538880 submitted to run at 10:14 Oct 6. 
Tue Oct 6 10 15:22 1987: starting... 
Request type: COPY 

Source deschon.isi.edu-deschon-XXX-21-./-foo* 
Destination : venera. isi. edu-deschon-XXX~2 1 -./temp/- 
Stru: F, Mode: S, Type: AN, Creation: STOR 
Multiple matching: TRUE ^ 
Return mailbox: 'deschon@isi.edu'. Password: SET 
Remaining tries: 5, Retry interval: 60 minutes 

Connect to deschon.isi.edu, 21 

deschon.isi edu ==> 220 deschon.isi.edu FTP server (Version 4.7 

Sun Sep 14 12:44:57 PDT 1986) ready. 
Connect lo venera.isi.edu, 21 

venera.isi edu ==> 220 venera.isi.edu FTP server (Version 4. 107 

Thu Mar 19 20:54:37 PST 1987) ready. 
deschon.isi.edu <== USER deschon 
deschon.isi.edu => 331 Password required for deschon. 
deschon.isi edu <= PASS XXX 
deschon.isi.edu ==> 230 User deschon logged in. 
venera.isi.edu <== USER deschon 
venera.isi.edu ==> 331 Password required for deschon. 
venera.isi.edu <==PASS XXX 
venera. isi edu ==> 230 User deschon logged in. 
deschon.isi edu <== CWD ./ 
deschon.isi edu ==> 200 CWD command okay, 
venera.isi edu <== CWD ./temp/ 
venera.isi.edu ==> 250 CWD command successful, 
deschon.isi edu <== PORT 128,9,1,56,4,106 
deschon.isi eriu ==> 200 PORT command okay. 



deschon.isi edu <== NLST foo* 

deschon isi edu 150 Opening data connection for ^in/ls 

(128.9.1.56,1130) (0 bytes), 
deschon.isi edu 226 Transfer complete, 
deschonjsi edu <=- PASV 

deschon.isi edu ==> 502 PASV command not implemented, 
venera.isi edu <^= PASV 
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venera.isi.edu -=> 227 Entering Passive Mode (128,9,0,32,6,200) 
deschon.isi edu <== PORT 128,9,0,32,6,200 
deschon.isi edu ==> 200 PORT command okay, 
deschon.isi edu <= RETRfoo 
venera.isi.edu <== STORfoo 

deschon isi edu ==> 150 Opening data connection for foo 

(128.9.0.32,1736) (0 bytes), 
deschon.isi edu ==> 226 Transfer complete, 
venera.isi edu ==> 150 Openning data connection for foo 

(128.9.1.56,20). 
venera.isi edu ==> 226 Transfer complete. 

venera.isi edu <== PASV ^ 

venera.isi edu ==> 227 Entering Passive Mode (128,9,0,32,6,201) (_ao>^ A"^ 

deschon.isi edu <= PORT 128,9,0,32,6,201 ^--(/>^^^M.^yV 

deschon.isi edu ==> 200 PORT command okay. 6>-<'*^ vT i^t?V-s, 

deschon.isi edu <== RETR fool Ji ir JL^ — fc/i^ 

venera.isi.edu <==STOR fool -Ar^*A "Piw. 

deschon . i si edu ==> 1 5 0 Opening data connection for foo 1 /xju^^^r-^ 

(128.9.0.32,1737) (4 bytes). ^ ^ \i 

deschon.isi edu ==> 226 Transfer complete, 
venera.isi edu ==> 150 Openning data connection for fool 

(128.9.1.56,20). 
venera.isi edu => 226 Transfer complete, 
deschon. is; edu <== QUIT 
venera.isi edu <== QUIT 

Tue.Oct 6 !0 15:39 1987; completed successfully. 



